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1  -  INTRODUCTION 


1 . 1  BACKGROUND 

Almost  any  expansion  of  operations  or  facilities  at  airports  or 
airbases  requires  some  type  of  an  environmental  assessment.  In  the  area 
of  air  quality,  this  assessment  usually  involves  the  use  of  two 
models — one  to  prepare  an  inventory  of  emissions  and  the  other  to 
calculate  the  concentrations  caused  by  these  emissions  as  they  disperse 
downwi nd. 

Models  to  perform  these  tasks  were  developed  in  the  early  1970's  by 
both  the  United  States  Air  Force  (USAF)  and  the  Federal  Aviation 
Administration  (FAA) .  The  USAF  developed  the  Air  Quality  Assessment  Model 
<AQAM)  (Rote,  et  al . ,  1975),  and  the  FAA  developed  the  Airport  Vicinity 
Air  Pollution  model  (AVAP)  (Wang,  et  al . ,  1973).  However,  these  models 
are  becoming  obsolete — they  are  expensive  to  operate,  tedious  to  enter 
data  into,  and  require  a  fully-qualified  scientist  or  engineer  to  use. 

The  introduction  of  modern  microcomputers  into  the  workplace  has 
made  it  possible  to  simplify  the  modeling  task  considerably.  However,  a 
prime  question  to  be  asked  before  developing  a  new  model  is  whether  to 
develop  a  separate  modeling  system  for  each  agency,  as  was  done  with  the 
earlier  AVAP  and  A QAM  systems,  or  whether  to  combine  FAA  and  USAF 
requirements  into  a  single  system. 

Consultations  between  the  FAA  and  the  USAF  indicated  that  it  would 
be  both  feasible  and  cost  effective  to  develop  a  single  modeling  system 
that  both  agencies  could  use.  The  system  that  resulted  from  these 
consultations  is  called  the  Emissions  and  Dispersion  Modeling  System 
(EDMS).  It  overcomes  the  limitations  of  the  earlier  models  by 
incorporating  the  new  "Simplex  A"  (Segal,  1981)  and  the  Graphical  Input 
Microcomputer  Model  (G1M1)  (Segal,  1983)  technology.  The  EDMS  also 
employs  a  modern  commercial  data  base  (Condor,  1983)  to  enter,  store,  and 
preprocess  information.  These  features  permit  a  lay  person  to  perform  a 
modeling  task  that  had  previously  been  reserved  for  a  scientist  or 
engineer . 

1.2  APPROACH 

The  development  of  EDMS  started  in  the  late  1970's  when  the 
feasibility  of  using  a  microcomputer  to  perform  a  mainframe  dispersion 
modeling  task  was  first  established.  In  1979,  an  algorithm  to  trace  the 
dispersion  of  pollutants  from  aircraft  that  were  accelerating  during 
takeoff  was  successfully  incorporated  into  a  HP-97  programmable  desk 
calculator.  The  resul t ing  model  was  called  Simplex  "A*. 

With  the  introduction  of  personal  computers  in  the  early  1980's, 
the  HP-97  code  was  reprogrammed  for  an  Apple  11+  microcomputer.  This 
approach  led  to  the  original  Glhfi — Graphical  Input  Microcomputer  Model. 
Because  of  its  more  powerful  Apple  computer,  GIM1  could  act  as  a  complex 
source  model  to  process  the  dispersion  of  emissions  from  roadways,  parking 
lots,  and  powerplants  as  well  as  from  accelerating  aircraft. 
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Realizing  the  effectiveness  of  GIMM  in  meeting  both  FAA  and  USAF  needs, 
the  FAA  and  the  USAF  issued  a  memorandum  of  understanding  <M0U)  to 
formally  blend  the  efforts  of  both  agencies.  This  MOU  documented  the  need 
for  a  single  FAA/USAF  microcomputer  model  to  evaluate  air  quality  at  both 
airports  and  airbases.  This  model — the  Emissions  and  Dispersion  Modeling 
System  (EDMS)  —  incorporates  the  emissions  and  dispersion  algorithms  of  the 
original  GIMh  that  have  been  speeded  up  and  processed  through  a  commercial 
data  base.  EDMS  was  completed  in  1985,  and  its  code  and  User's  Guide  were 
released  to  the  general  public  in  December  1985  as  report 
FAA-EE-85-4/ESL-TR-85-41 . 

Since  that  time,  major  modifications  have  been  made  to  the  original  EDMS  to 
ennance  its  usability  and  incorporate  an  integral  dispersion  model  into  its 
code.  A  prototype  of  this  expanded  model  was  completed  in  1986  and  was  used 
to  analyze  air  quality  at  Stapleton  International  Airport  in  conjunction  with 
the  building  of  a  new  runway  for  that  airport. 

Since  1986,  the  prototype  EDMS  has  been  incorporated  into  the  main  EDMS 
system,  and  the  final  model  has  been  submitted  to  the  ERA  as  an  agenda  item 
for  the  Fourth  Conference  on  Air  Quality  Modeling.  The  technical  features  of 
this  model  are  described  in  this  document. 
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2  -  MODEL  DESCRIPTION 


2.1  GENERAL 

EDMS  is  a  dispersion  model  with  an  emissions  front  end.  It  can 
process  line,  point,  and  area  sources  at  an  airport  or  airbase  and  can 
operate  in  a  refined  or  screening  mode. 

The  emissions  portion  of  EDMS  receives  emissions  information 
entered  through  its  Condor  data  base  (Condor,  1983)  and  converts  this 
information  into  emission  rates  from  which  an  emissions  inventory  can  be 
prepared. 


The  dispersion  portion  of  EDMS  adds  meteorological  inputs  to  this 
emissions  information  and  produces  a  report  of  concentrations  at  specified 
airport  locations.  The  model  can  operate  in  a  refined  or  a  screening 
mode.  In  its  refined  mode,  it  automatically'  processes  Nat  i  onal  Climatic 
Center  (NCC)  weather  files.  In  the  screening  mode,  it  processes  weather 
data  that  has  been  manually  entered  on  an  hour-by-hour  basis. 

Figure  1  shows  the  elements  of  the  emissions  model,  and  Figure  2 
shows  the  manner  in  which  the  emissions  and  dispersion  models  interface. 

The  emissions  model,  EM1SSM0D,  incorporates  a  modern  data  base, 
(Condor,  1983).  The  dispersion  model,  GIMi,  incorporates  the  dispersion 
algorithms  of  the  original  Glhti  which  have  been  speeded  up  to  enable 
refined  model  operation. 

2.2  EMISSIONS  MODEL  (EMISSMOD) 

EMISSMOD  accepts  emission  and  coordinate  information  for  the 
following  airport  sources: 

I  Miscellaneous  point  sources  (Facility  sources) 

Powerpl ants 
Heat  mg  plants 
Fuel  storage  tanks 
Training  fires 

II  Roadway  sources 

III  Parking  lot  sources 

IV  Aircraft  sources 

Aircraft  queues 
Aircraft  takeoffs 

The  interrelationship  of  these  sources,  with  regards  to  data  entry 
is  shown  in  Figure  3. 


Data  Flow  —  Emissions  Model 
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Data  Flow  —  Emissions  and  Dispersion  Model 


Figure  2 


Organizational  Structure 
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The  outputs  from  EMISSMOD  ire: 

1.  An  emission  inventory  report,  end 

2.  Five  peak  hour  emission  rates  which  are  used  to  process 
motor  vehicle  emissions  information  prior  to  a  dispersion 
model  run.  These  rates,  which  are  calculated  for  0,  25, 

50,  75,  and  100  degrees  F.,  comprise  the  table  lookup 
matrix  for  subsequent  temperature  interpolation  of 
emissions  data. 

2.3  DISPERSION  MODEL  (GItti) 

2.3.1  Model  Features  and  Limitations 

The  EDMS  uses  the  original  GItti  code  modified  to  eliminate 
unnecessary,  redundant,  and  time-consuming  calculations.  Sinusoidal, 
exponential,  and  iterative  calculations  are  replaced  with  table  lookups. 
Glhfrl  incorporates  the  following  features: 

1.  Coordinate  rotation  so  that  wind  is  always  from  the  north. 
This  rotation  enables  one  coordinate  system  to  be  used  for 
the  entire  mode  1 . 

2.  A  fixed  point  spacing  algorithm.  This  fixed  point 
al gor i thm  repl aces  the  earlier  GIMM  al gor i thm  wh i ch 
iterated  point  spacing  to  smaller  and  smaller  values. 

This  procedure  significantly  reduced  the  time  required  for 
dispersion  calculations. 

3.  Table  lookups  to  replace  exponential  calculations. 

4.  The  calculation  of  an  emission  rate  for  that  hour  of  the 
year  when  source  activity  would  be  at  a  maximum.  Emission 
rates  (and  concentrations)  for  the  remaining  hours  of  the 
year  are  determined  by  multiplying  this  peak  hour  rate  by 
hourly,  weekly,  and  monthly  source  activity  factors. 

The  geometry  of  al)  sources  is  broken  down  into  a  series  of  points 
with  one  exception,  parking  lots.  These  sources  are  treated  as  a  series 
of  finite  lines. 

Source  dispersion  was  considered  to  be  Gaussian  in  nature  and  the 
Pasqu i 1 1 -Gi f f ord  (P-G)  curves  from  (Turner,  1970),  as  well  as  the  point 
and  finite  lines  equations  from  the  same  reference,  were  used  in  the  model 
design.  Initial  dispersion  conditions  reflecting  source  turbulence  can  be 
entered  into  all  models  except  the  roadway  model.  For  this  model  the 
initial  conditions,  as  defined  by  <Rao,  et  al . ,  1980)),  are  incorporated 
into  the  program. 


To  speed  up  calculation  time,  algorithms  that  were  shown  to  haue  a 
negligible  effect  on  concentrations  or  were  found  to  be  unrelated  to 
airport  pollution  were  omitted.  An  inversion  height  lidding  algorithm  was 
not  added  because  source/receptor  distances  are  usually  quite  small  at  an 
airport  and  the  plume  usually  does  not  have  a  chance  to  reach  the  base  of 
the  inversion.  For  aircraft,  only  the  takeoff  and  queue  modes  of 
operation  were  modeled  because  concentrations  from  all  the  other 
operational  modes  have  proven  to  be  negligible  (Yamartino,  »l .  al . ,  1980 

The  point  and  line  source  equations  from  (Turner,  1970)  were  used 
in  all  dispersion  calculations. 


Point  source  equation: 
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used  in  the  roadway  ,  accelerating  aircraft,  queueing  aircraft, 
and  facility  source  algorithms 


Line  source  equation: 
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used  in  the  parking  lot  algorithms 


where  : 


X  *  concentration  at  the  receptor  <ug/m3> 

x  *  source/receptor  distance  (along  plume  centerline)  (m) 

y  =  perpendicular  distance  between  the  receptor  and  the 

plume  centerline  in  the  crosswind  direction  (m) 

sigma  y  =  standard  deviation  of  concentration  distribution 

in  the  crossmind  direction  (m) 

sigma  2  =  standard  deviation  of  concen tra t i on  distribution 

in  the  vertical  direction  (m> 

H  =  effective  plume  height  (m) 

q  *  source  strength  per  unit  distance  (g/m/s) 

p  =  y/  sigma  y 
pl=  yl/sigma  y 
p2=  y2/sign»a  y 


Detailed  descriptions  of  the  four  submodels  are  included  in 
Appendix  A. 


3  -  METEOROLOGICAL  DATA 


3.1  GENERAL 

Meteorological  conditions  nay  be  specified  either: 

o  Manually,  by  entering  the  temperature,  P-G  stability  class, 
windspeed,  and  wind  direction  when  prompted  interactively,  or 

o  Automatically,  by  specifying  the  range  of  Julian  hours  to  be 
processed.  The  dispersion  model  will  then  process  the  already 
1 oaded  Nat i onal  Climatic  Center  (NCC)  annual  weather  data  and 
calculate  the  concentrations  for  the  hours  specified. 

Uhen  meteorological  data  are  entered  manually,  the  model  operates 
in  the  screening  mode.  Uhen  these  data  are  entered  automatically  it 
operates  in  the  refined  mode.  These  two  terms,  which  are  used  many  times 
in  this  report,  are  explained  as  follows: 

A  screening  model  accepts  estimates  of  the  highest  expected  value 
for  source  activity  and  the  poorest  expected  value  for  meteorological 
conditions  (from  an  air  quality  standpoint).  With  these  inputs  the  model 
calculates  concentrations.  If  concentrations  exceed  the  National  Ambient 
Air  Quality  Standard  (NAAQS)  for  the  pollutant  in  question,  a  refined 
analysis  is  usually  indicated. 

A  refined  model  simulates  real  world  conditions  by  processing  hourly 
meteorological  and  source  activity  information  in  a  brute  force,  unbiased 
fash i on . 


3.2  METEOROLOGICAL  PREPROCESSING 

NCC  weather  data  are  loaded  into  the  computer  before  modeling 
starts.  After  loading  the  NCC  weather  diskettes,  a  special  preprocessor 
extracts  the  appropriate  parameters  from  the  NCC  data,  scans  these 
parameters,  corrects  for  missing  or  questionable  data  fields,  and  enters 
these  data  into  the  files  required  to  run  GIMM. 

The  meteorological  preprocessor  accepts  up  to  one  year  of  NCC 
hourly  surface  observations  on  an  IBM  PC  compatible  diskette  in  card  deck 
144  format  and  performs  the  following  operations  on  them: 

o  Determines  the  P-G  stability  class. 

o  Eliminates  those  parameters  which  are  not  needed  in  air  quality 
calculations. 

o  Converts  the  NCC  data  to  an  integer  format.  This  conversion 
reduces  disk  storage  demands. 

o  Saves  the  compressed  NCC  data  on  a  special  file  for  subsequent 
use  by  GIMi. 


4  -  MODEL  SPEED 


Figure  4  compares  the  speed  at  which  the  GlhM  dispersion  model 
calculates  concentrat ions  wh i le  using  the  Following  computers: 

1.  Apple  II 

2.  I0M  XT 

3.  IBM  XT  with  math  coprocessor 

4.  Compaq  <a  more  modern  computer  using  the 
384  microprocessor) 

5.  Compaq  with  math  coprocessor. 

The  GIMM  run  was  For  Five  6-hour  meteorological  data  sets  (40  total 
hours)  in  which  30  sources  and  7  receptors  were  processed.  (It  is 
reasonable  to  expect  this  amount  oF  processing  to  assess  conFormance  with 
the  8-hour  Carbon  Monoxide  standard.) 

The  Compaq  computer  with  the  mathematics  coprocessor  took 
13  minutes  to  complete  this  task.  This  test  was  run  on  May  13,  1988,  with 
the  computer  technology  and  model  development  status  as  oF  that  date. 

The  time  to  process  more  than  40  hours  oF  meteorological  data  can 
be  determined  by  extrapolating  From  the  results  shown  in  Figure  4. 


MODEL  EXECUTION  TIME 


•  5-  eight  hour  time  sequences  of  weather  data  (40  hours) 

•  Stapleton  International  Airport  scenario  (Segal  1986) 
r  7  receptors  and  30  sources 


IBM  XT  IBM  XT  COMPAQ  COMPAQ 

(MO  8087)  (WITH  8087)  (MO  80387)  (WITH  80387) 


5  -  COMPARISON  OF  EDMS  WITH  OTHER  MODELS 


5.1  GENERAL 

The  method  for  establishing  the  performance  of  both  EMISSMOD  and 
Gltfi  was  to  select  representative  airfield  scenarios  and  process  these 
scenarios  through  EMISSMOD  and  SIMM.  These  same  scenarios  were  also 
processed  through  criteria  models  for  comparison  purposes. 

5.2  EMISSION  MODEL  (EMISSMOD)  COMPARISONS 

EMISSMOD  performance  was  determined  by  running  EMISSMOD  and  a 
criteria  model  through  the  same  Pease  AF6  scenario.  Pease  AFB  was 
selected  because  it  included  all  EDMS  sources. 

The  criteria  models  for  EMISSMOD  comparison  were: 

1.  Methods  and  constants  provided  in  the  EPA  report,  AP-42 
(EPA,  1983) 

2.  American  Petroleum  Institute  listings  (API,  1978) 

3.  AQAM  model  results  (Pease,  1977). 

Every  source  type  included  in  EDMS  was  evaluated  and  the  results 
are  listed  in  Appendix  8. 

Emission  rate  differences  between  EMISSMOD  and  criteria  models 
ranged  between  *2  and  -4  percent. 

5.3  DISPERSION  MODEL  (Glttl)  COMPARISONS 

Using  the  Figure  5  scenario,  the  concentration  differences  between 
Glrtl  and  criteria  models  ranged  between  +8  and  -3  percent.  The  details  of 
this  comparison  are  described  in  Appendix  6. 

Glhti  and  criteria  models  were  also  compared  for  a  Stapleton 
International  Airport  scenario.  The  associated  report  (Segal,  1986) 
showed  that  concentration  differences  between  GIMM  and  the  appropriate 
criteria  model  ranged  between  *7  and  -3  percent. 
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1 .  GItti  Submode  1 s 


61MM  incorporates  the  ■following  four  submodels: 

I  Fac i  1  i  ty  Submodel 

Power  pi  ants - points 

Heating  plants - points 

Fuel  storage  tanks - points 

Training  fires - points 

11  Roadway  Submodel - points  (spaced  uniformly) 

111  Parking  Lot  Submodel - lines  (finite) 

IV  Aircraft  Submodel 

Aircraft  queues - points  (spaced  uniformly) 

Aircraft  takeoffs - points  (spaced  nonun i forml y) 

The  facility  submodel  is  broken  down  into  four  sub-submodels  and  the 
aircraft  submodel  is  broken  down  into  two  sub-submodels.  Concentrations 
for  Facility  and  Aircraft  submodels  are  reported  as  the  sum  of  the 
concentrat i ons  from  their  sub-submodels. 

While  all  four  facility  sub-submodels  use  the  same  dispersion  algorithm 
the  aircraft  sub-submodels  do  not.  Algorithm  differences  will  be 
explained  later  on  in  this  report. 

For  computational  purposes,  the  line  or  area  source  geometry  is  broken 
down  into  the  smaller  elements  noted  aboue . 

1.1  Facility  Submode  1 

1.1.1  General 

Powerplants,  heating  plants,  training  fires,  and  fuel  storage  tanks  are 
modeled  as  facility  sources.  They  all  use  the  same  point  source 
dispersion  algorithm  from  (Turner,  1970).  However,  each  one  reads  a 
different  emissions  data  file.  Before  addressing  the  method  for 
calculating  pollutant  dispersion,  the  method  for  calculating  plume  rise  is 
described: 

1.1.2  Plume  Rise  Considerations 

The  following  steps  describe  the  plume  rise  calculations  for  all  facility 
sources: 
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o  Calculate  volume  flow  rate: 
tW  =  PI/4  *  VS  *  0A2 
where : 

WV  =  Volume  flow  rate  <mA3/sec) 
PI  =  pi 

VS  =  Stack  flow  speed  (ra/sec) 

D  =  Stack  diameter  <m) 

o  Calculate  buoyant  production: 

F  =  g/Pl  •  W  *  <TS  -  T0)/T0 

where  : 


9  =  gravitational  acceleration  <m/secA2) 

<3.12139  appears  in  code  as  g/PI 
TS  =  Stack  temperature  <k) 

TO  =  Ambient  temperature  (k) 

F  =  Buoyant  flux  <mA4/sA3) 

o  Calculate  plume  rise. 

a)  For  unstable  or  neutral  conditions 
<PG  <=  4): 

XS  =  14  *  FA<5/8>  (if  F  <  55  mA4/secA3) 

=  34  *  FA<2/5>  (if  F  >=  55  MA4/secA3) 

where : 

XS  =  downwind  displacement  scale  <m) 

(Constants  14  and  34  are  empirical;  contain  dimensions 
to  convert  XS  to  units  of  length  in  each  case) 

ZP  =  1.6  *  FA< 1/3)  *  (3.5  »  XS)A(2/3)  *  1/U 

where  U  is  wind  speed  in  meters/second,  measured  at  the 
surface 

ZP  is  plume  rise  in  in 


XF  =  3.5  *  XS  <m) 

XF  =  downwind  displacement  of  plume  in  meters 
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b)  For  stable  conditions: 

i.  First  calculate  the  Brunt-Va i sal  a  ■frequency: 

NA2  =  g  *  DT  *  1/TO 
where : 

N  =  Brun t-Ua i sal  a  frequency  (1/sec) 

9  *  9.8  m/secA2 

DT  =  potential  temperature  gradient,  set  to: 

.035  deg  C/m 

ti.  Next,  compute  the  plume  rise  in  meters: 

2P  =  2.6  *  < F/< U  *  NA2>  ) A  ( 1/3) 

-or- 

2P  =  5.0  *  <FA  ( 1/4) )  *  <NA2)A(-3/8) 

(whichever  gives  the  smallest  result) 

lii.  Under  stable  conditions,  the  plume  will  maintain 

its  identity  and  drift  downwind.  The  scale  of  the 
effective  downwind  displacement  reflects  the  ratio  of 
the  windspeed  to  the  Brun t-Va i sal  a  frequency: 

XF  *  PI  *  U/N 

where : 

XF  =  downwind  displacement  of  source  (m) 
Calculate  effective  source  position: 

2D  =  H  +  2P 
XD  »  D  -  XF 
XC  *  C 
where : 

ZD  =  effective  source  height  (m) 

H  =  stack  or  release  height  (m) 

ZP  =  plume  rise  (m) 

XD  *  downwind  component  of  effective  source-receptor 
displacement,  origin  at  source  (m) 

D  *  source-receptor  downwind  distance  (m) 
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XF  =  downwind  plume  displacement  (m) 

C  =  source-receptor  crosswind  distance  (m> 

XC  =  crosswind  component  of  effective  source-receptor 
displacement,  origin  at  source  (m) 

1.1.3  Dispersion  Considerations 

Once  the  effective  height  and  location  of  the  point  source  plume  have  been 
determined,  the  next  step  is  to  calculate  the  concentration  contribution 
at  a  receptor. 

o  G1MM  uses  the  downwind  distance  XD  in  a  table  lookup  and  linear 
interpolation  routine  to  obtain  the  approximate  Pasqu i 1 1 -Gi f f ord 
sigma-y  and  sigma-z  for  the  given  stability  class: 

SY  =  <TSY< 1+1 ,PG)  -  TSY( I , PG) )  *  (XD/100  -  I)  ♦  TSY(l) 

where : 

SY  =  sigma-y  <m) 

1  =  I NT  <XD/1 00 ) 

TSY< 1 ,PG)  =  tabulated  horizontal  standard  deviation  of  plume 
concentration  distribution  at  downwind  distance 
of  1  *  100  m  and  Pasqu i 1 1 -G i f ford  stability 
class  PG  (m> . 

SZ  =  <TSZ<m,PG)  -  TSZ  <  1  ,PG) )  #  (XD/100  -  1 )  ♦  TSZ(l) 
where : 

SZ  =  sigma-z  <m) 

I  =  I NT (XD/100) 

TSV(1,PG>  =  tabulated  vertical  standard  deviation  of  plume 
concentration  distribution  at  downwind  distance 
of  1  *  100  m  and  Pasqu i 1 1 -G i f ford  stability 
c 1  ass  PG  <m) . 

o  The  next  step  is  to  scale  the  crosswind  and  vertical 
source-receptor  distances  by  the  appropriate  sigmas: 

DS  =  C/SY  (dimensionless  crosswind  distance) 

ZS  -  ZD/SZ  (dimensionless  vertical  distance) 

o  Obtain  the  relative  horizontal  and  vertical  concentration  factors, 
<CH  and  CV)  which  will  be  dimensionless  and  range  between  0  and  1  .* 

CH  *  ( CR( I ♦ 1 )  -  CR( 1 > >  #  (DS  *  10  -  1)  ♦  CR( 1 ) 


CV  =  (CR(I-H)  -  CR(  1 ) )  #  <ZS  »  10  -  I)  ♦  CR(  1 ) 


where : 
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1  =  int(DS  #  10) 

CR(1)  =  a  table  of  the  function 

exp  -<<1  /  10)A2>/2>  (the  Gaussian  curve) 
evaluated  at  1  =  0,  1  ...  40 

Next,  calculate  the  dimensionless  relative  concentration  (sec/mA3> 
at  this  receptors 

CR  =  l/< PI  *  SY  *  S2  *  U)  *  CH  »  CV 

And  the  emission  rate,  Q(J)  (gm/sec),  for  the  hour  of  interest: 
Q(J)  =  QF  <  J)  *  HF(W)  *  DF<DN)  *  MF(MN) 


where : 

QF<J;  =  peak  emission  rate  for  species  J  in  gm/sec.  (The 
species  indices  correspond  to  the  pollutants  CO, 

HC,  NOx ,  SOx ,  and  particulates.) 

Q( J )  =  emission  rate  for  species  J  during  hour  HN, 

day  ON,  month  ttf,  in  gm/sec. 

HF(HN)  =  temporal  factor  for  hour  HN,  where  HN  goes  from  0 
to  23.  The  temporal  factors  give  the  fractional 
variation  in  activity  through  the  hours  of  the  day 
and  run  from  0  to  1.0. 

DF(DN)  =  temporal  factor  for  day  ON,  defined  as  above  for 
ON  from  1  to  7. 

MF(MN)  =  temporal  factor  for  month  MN,  defined  as  above  for 
MN  from  1  to  12. 

Compute  the  absolute  concentration  by  multiplying  the  relative 
concentration  at  the  receptor  by  Q(J)  for  all  J  pollutants. 

Finally,  sum  the  concentration  contributions  for  each  pollutant, 
from  each  source,  at  each  receptor. 
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1.2  Roadway  Submodel 

1.2.1  General 

Roadway  dispersion  is  modeled  as  a  line  source  '  ^rox  imated  by 
closely-spaced  point  sources.  These  points  are  evenly  spaced  along  a  line 
at  an  interval  equal  to  the  one-haH  si^na-y  value  at  the  receptor's 
downwind  distance.  Contributions  'from  each  point  simulation  of  the 
roadway  lines  are  computed  and  summed.  Finally,  the  result  is  (Multiplied 
by  the  appropriate  values  of  the  peak  emission  rate — Q<J>. 

1.2.2  Point  Source  Spacing. 

GIMM  first  obtains  SG,  the  characteristic  sigma-y  value  which  is  used  for 
point  spacing  calculations.  SG  is  determined  in  one  of  the  following 
ways : 


o  If  the  receptor's  crosswind  coordinate  falls  between  the  crosswind 
components  of  the  two  endpoints,  SG  is  based  upon  the  y-intercept 
(D  =  0)  of  the  line  source: 

D3  =  D1  -  Cl  *  S 

where  : 

03  =  downwind  distance  used  to  compute  SG. 

Cl  =  crosswind  coordinate  of  leftmost  end  of  line 
source  . 

01  =  downwind  coordinate  of  left  side  of  line  source. 

S  =  slope  of  line  source. 

(C2,D2> 

/ 

/ 

/ 

/  <0 ,D> 

/ 1 
/  ! 

1 i ne  has  /  ! 

slope  =  S  /  !D3 

/  ! 

/  ! 

/  1 

(ci, on  /  : 

R 

receptor  (0,0) 
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o  If  the  receptor  is  to  the  left  of  the  leftmost  endpoint, 

03  =  D1 

o  If  the  receptor  is  to  the  right  of  the  rightmost  endpoint, 

<C2 ,D2)  ,  then, 

03  =  02 

G1MM  uses  the  table  lookup  routines  to  obtain  a  value  of  SG  corresponding 
to  the  downwind  distance  03,  and  reflecting  any  initial  sigma-y  which  may 
have  been  established  for  the  source.  It  then  determines  NP,  the  number 
of  points  to  be  used  in  the  approximation: 

NP  =  2  «  (C2-C1 )/SG 

<10  <=  NP  >=  200) 

When  approximating  the  line  source,  the  point  coordinates  will  be 
<CP,DP).  The  first  point  will  be  at  the  following  position: 

CP  =  Cl  -  .5  *  C! 

DP  =  01  -  .5  *  01 

where  : 

Cl  =  <C2  -  C1)/NP 
01  =  <D2  -  OD/NP 

Subsequent  points  are  located  by  incrementing  CP  and  DP  by  Cl  and  01  until 
all  NP  have  been  used. 
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1.2.3  Line  Cl ipp ing 

Not  all  of  a  line  segment  will  contribute  to  concentrations  at  a  given 
receptor.  In  man/  cases,  the  computations  may  be  speeded  up  by  clipping 
both  ends  of  a  line  segment  so  that  the  end  portions  which  have  an 
infinitesimal  or  no  impact  upon  a  receptor  are  eliminated.  The  following 
method  is  used: 

o  The  first  step  is  to  define  a  region  within  which  point  sources 
can  make  contributions  to  the  concentration  measured  at  a  receptor 
located  at  <0,0).  Since  the  close-in  Pasqu i 1 1 -Gi f f ord  curves  for 
stabilities  b  -  e  all  result  in  plume  spreading  at  a  less  than 
linear  rate  with  distance,  it  is  conservative  to  approximate  the 
envelope  with  the  linear  function,  D  <  ABS(A  *  C). 

<  0 ,  CT ) 

<C1  ,D1 )  \  (XI , Y 1 >  !  <X2,Y2>  /  <C2,D2) 

\  I  / 

\  :  / 

\  !  / 

slope=-A  \  1  /  slope=A 

\  !  / 

\  1  / 

\  !  / 

\  i  / 

\:/ 

R 

receptor  (0,0) 

where  D  =  downwind  component 
C  =  crosswind  component 
A  =  slope  of  the  plume  envelope 

o  The  equation  of  the  line  source  is  as  follows: 

D  =  S  *  C  ♦  CT 

where : 

S  =  line  source  slope,  given  by  (D2-D1 )/( C2-C1 ) , 
with  Cl,  01,  C2,  02  being  endpoints  of  the 
roadway  line  segment. 

CT  *  value  of  0  corresponding  to  C  *  0.  It  is 
calculated  from  CT  =  01  -  S'  «  Cl  . 

o  Solving  for  (XI,  Yl)  and  (X2,  Y2) ,  the  endpoints  of  the  new, 
cl ipped  1 i ne  segment : 


XI  *  -CT  /  (AC  ♦  S) ;  Yl  «  -AC  *  XI 
X2  *  CT  /  (AC  -  S);  Yl  =  AC  *  XI 
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o  All  that  remains  is  to  check  whether  either  or  both  of  the  points 
<X1,Y1)  and  (X2,Y2)  tall  on  the  line  segment  between  the  original 
endpoints  <C1,D1)  and  (C2,D2>.  H  so,  <C1,D1)  and/or  (C2,D2)  are 
set  equal  to  the  corresponding  clipped  coordi nate< s)  and  the 
emission  rate  of  the  line  source  reduced  in  order  to  maintain  a 
constant  line  density. 

1.2.4  Dispersion  Table  Modification 

Studies  by  General  Motors  of  actual  dispersion  from  moving  automobiles  on 
a  test  track  (Chock  1978)  suggest  a  number  of  corrections  and  adjustments 
to  the  Gaussian  plume  algorithm.  These  primarily  serve  to  account  for  the 
enhanced  turbulence  near  the  road  due  to  the  motion  of  the  automobiles. 

The  adjustments  (Rao  and  Keenan,  1980)  are  as  follows: 

o  Aerodynamic  drag  factor: 

UC  =  C  »  < IT  .  1 64 >  *  <C0S(A))A2 
where : 

UC  =  corrected  windspeed  <m/sec) 

U  -  ambient  windspeed  <m/sec) 

A  =  angle  between  road  and  x-axis 

C  =  1.85  (empirical  constant  related  to  traffic  speed) 

If  UC  <  U  then  UC  is  set  equal  to  U 

o  Initial  dispersion  of  plume.  The  mechanical  turbulence  produced 
by  moving  automobiles  causes  considerable  local  mixing.  GIMM 
models  this  with  initial  values  of  sigma-y  and  sigma-z  at  the 
source  location.  On  the  grounds  that  this  initial  turbulence  will 
advect  away  from  the  road  when  the  flow  is  primarily  crossroad 
but  stay  over  the  road  when  the  flow  is  down-road,  this  initial 
spreading  is  related  to  the  magnitude  of  the  crossroad  wind 
component  UX: 

SZO  =  3.57m  -  ,53*UX 

if  SZO  (  1.5  m  then  SZ  =  1.5  m 

SYO  =  2.0  *  SZ 

where : 

UX  =  U  *  COS(A) 

SZO  =  initial  value  of  sigma-z 
SYO  =  initial  value  of  sigma-y 

The  Pasqu i 1 1 -G i f f or d  dispersion  curves  have  been  modified  to  reflect  the 
increased  turbulence  near  the  roadway.  This  section  describes  the  values 
used  for  interpolation  of  the  estimated  sigma-y  and  sigma-z  parameters. 
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For  sigma-z: 

The  Following  sigma-z  values  are  For  up  to  300  m  downwind: 
SZN< 1 ,K)  *  A  *  ( 1 ) AB  <1  =  0,  100,  300  m) 

where  A,  B  and  K  are  as  Follows: 


PG  c 1  ass 

A 

B 

K 

B  -  C 

110.42 

.93198 

1 

D 

84.49 

.92332 

2 

E  -  F 

41.14 

.91445 

3 

These  values  are  For  beyond  300  m: 

SZA<I,K)  =  SGR<  SZN( 300 ,K>  A2  -  TSZ<300,K)A2  ♦  TS2(1,J)A2  ) 
1  *  300 ,  400 ,  . . . ,  10000  m 


where : 

T$Z<  1  ,K  )  *  table  oF  Pasqu i 1 1 -6i FFord  sigma-z  values,  introduced 
in  the  "point  sources"  section. 

SZN<  I  ,K  )  =  near  Field  sigma-z  values,  For  distances  up  to  300m, 
as  deF ined  above . 

SZA(  1 , K  )  =  table  oF  adjusted  sigma-z  values. 

K  and  J  are  deFmed  as  Follows: 


PG  CLASS 

K 

J 

B 

1 

2 

C 

1 

3 

0 

2 

4 

E 

3 

5 

F 

3 

4 

For  sigma-y: 

SYN <  I  , K )  =  445.1  *  I  *  TW(  AP(  I )  ) 


where : 


AP(I)*C-D*  LN<  I  /1 000  )  <  1  =  0,  100,  200,  300  m  ) 


where  C,  D  and  K  are  as  follows: 


PG  CLASS 


IB  -  C 
D 

E  -  F 


18.333 

14.333 
12.5 


1 .8096 
1 .7706 
1 .0857 


beyond  300  m: 


SYA< I ,K>  =  SQR< SYNC 300 ,  J)*2  -  TSY<300,K)A2  ♦  TSYCI,J)A2) 
I  =  300,  400,  ...,  10000  m 


where : 

TSY(],K)  =  table  of  Pasqu i 11 -G i ff ord  sigma-y  values, 
introduced  in  the  ’point  sources*  section. 

SYN ( I , K )  =  near  field  sigma-y  values,  for  distances  up  to  300m, 
as  defined  above. 

SYAC I , K)  =  table  of  adjusted  sigma-y  values. 

K  and  J  are  defined  as  above: 


Finally,  the  sigma  values  interpolated  from  the  tables  of  SYA(I,K)  and 
SZACI,K)  above  are  adjusted  for  the  initial  sigma  values  by  squaring  the 
sigma's  for  initial  and  downwind  distances,  summing  these  values,  and 
extracting  the  square  root  of  the  sum.  (This  procedure  shall  be  called 
■quadrature*  in  this  report.) 


SY  *  SQR(SYIA2  +  SY0A2) 
SZ  =  SQR<SZI A2  +  SZ0A2) 
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where : 

SY,  SZ  ere  the  values  of  sigma-/  and  sigma-2  used  in  the  point 
source  contribution. 

SY1 ,  SZ I  are  the  values  of  the  sigmas  interpolated  from  the 
tables  SYA< 1 , K)  and  SZA<1,K>. 

1.3  Parking  Lot  Submodel 

Parking  lot  emissions  are  modeled  as  area  sources.  The  integration 
elements  are  line  segments  oriented  normal  to  the  direction  of  the  wind. 
The  calculation  proceeds  in  the  same  manner  as  that  for  the  point  source, 
except  that,  instead  of  a  table  lookup  for  the  Gaussian  distribution 
curve : 

CR( 1 )  =  exp  -(<1  /  10>A2)/2> 
for  I  =  0  to  40 

the  table  contains  values  for  the  area  beneath  the  curve  between  zero  and 
.0,  .1,  .2,  .3,  ...  4.0: 


K=l/1 0 

CR< 1 )  =  J*xp  -< <KA2>/2)  dK 

K=0 

for  I  =  0  to  40 

The  tabulated  values  may  be  linearly  interpolated  as  before.  All  that  has 
to  be  done  is  to  evaluate  the  integral  *om  each  endpoint  of  the  finite 
normal  line  source.  Since  this  line  is  perpendicular  to  the  wind,  the 
downwind  components  of  each  endpoint  will  be  the  same.  The  calculation 
proceeds  as  follows: 

o  First,  calculate  sigma-y  and  sigma-z  corresponding  to  the  downwind 
source-receptor  spacing.  This  is  done  using  the  same 
Pasqui l l-Gifford  interpolation  scheme  outlined  in  the  ’POINT 
SOURCES’  section.  The  modified  sigmas  used  for  road  sources  are 
not  used  here,  the  assumption  being  maJe  that  the  parking  lots 
will  have  less  mechanical  turbulence  than  the  roads  due  to  the 
slower  speeds  of  the  cars  traveling  in  the  parking  lots. 

o  Next,  scale  the  crosswind  coordinates  of  the  endpoints  of  the  line 
segment  by  sigma-y.  These  scaled  coordinates  051  and  D52  are 
analogous  to  the  scaled  value  DS  in  the  "POINT  SOURCES’  section. 
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o  The  computation  of  relative  concentration  is  also  analogous  to  the 
one  for  point  sources.  The  only  difference  is  that  there  are  now 
two  interpolated  table  values,  and  they  represent  the  areas  under 
the  normal  distribution  curve  between  0  and  each  line  segment 
endpoint.  The  contribution  from  the  emissions  between  the  two 
endpoints  will  be  the  absolute  difference  between  the  two  values: 

CN1  =  <CR( 1 1 ♦ 1 )  -  CR<!1>)  »  (DS1  *  10  -  ID  ♦  CR(I1) 

CN2  =  (CR< 12+1)  -  CR<12>>  *  <DS2  «  10  -  12)  ♦  CR<12> 

CN  =  ABS<  CN2  -  CN1  ) 

where : 

DS1  *  crosswind  coordinate,  scaled  by  sigma-y,  of  one 
endpoint  of  the  line  segment 

DS2  =  crosswind  coordinate,  scaled  by  sigma-y,  of  the  other 
endpoint  of  the  line  segment 

11  =  i n  t  < DS1  »  10) 

12  =  i nt<DS2  *  10) 

CN1  =  area  under  the  Gaussian  curve  from  0  to  DS1 

CN2  =  area  under  the  Gaussian  curve  from  0  to  DS2 

CN  =  relative  concentration  at  the  receptor  due 
to  the  line  source  emissions 


1.4  Aircraft  Submodel 
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1.4.1  General 

Aircraft  are  small  contributors  to  pollutant  concentrations  at  airports 
(Yamartino,  et  al . ,  1980),  while  operating  in  the  operational  modes 
defined  by  the  EPA.  While  concentrations  would  be  expected  to  be  small  in 
all  modes,  the  two  modes  producing  the  greater  concentrations  are  takeoff 
and  queueing.  The  aircraft  path  during  these  two  modes  is  described  as 
f ol 1 ows : 

o  The  takeoff  path  extends  from  the  downwind  end  of  the  runway  to 
the  point  where  it  takes  off.  This  source  is  treated  as  a 
nonun i form  line. 

o  A  queue  path  extends  along  the  pre-takeoff  taxiway  up  to  the 
point  where  it  intersects  the  downwind  end  of  the  runway. 

This  source  is  treated  as  a  uniform  density  line. 

1.4.2  Aircraft  Queue 

The  aircraft  queue  submodel  is  similar  to  the  automobile  road  source 
submodel  except  that  it  does  not  incorporate  the  special  sigma-y  and 
sigma-z  curves,  as  defined  by  <Rao,  et  al . ,  1980)  at  the  close-in 
source-receptor  distances. 
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1.4.3  Accel er at i ng  Ai rcraft . 

The  method  described  by  (Segal  1981)  has  been  incorporated  into  the 
model.  Motion  along  the  takeoff  line  is  simulated  by  points  whose  spacing 
varies  directly  with  the  speed  of  the  aircraft  as  it  proceeds  down  the 
runway.  G1MM  assumes  a  1  m/secA2  acceleration.  A  time  spacing  of  one 
point  source  every  one-eighth  second  during  the  takeoff  run  is  used  to 
define  point  spacing.  Consequently,  the  point  spacing  is  as  follows: 

x  =  .5  *  a  *  tA2 

for  a  =  1  m/s,  so  that: 

XP(T)  =  .5  *  TA2  m/secA2 

where  T  =  <0,  .125,  .250, . 42.0) 

<42  seconds  is  the  EPA  time  in  mode  for  takeoff) 

Dispersion  calculations  for  these  nonuniform  line  sources  (accelerating 
aircraft)  are  similar  to  those  for  uniform  line  sources  (queued  aircraft) 
in  that  the  calculated  concentrations  from  all  points  simulating  the 
takeoff  path  are  summed.  Once  all  of  the  points  have  been  accounted  for, 
the  relative  concentration  is  scaled  and  multiplied  by  the  adjusted 
emission  rate  Q(J)  for  an  accelerating  airplane. 
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MODEL  COMPARISON  RESULTS 
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Comparison  of  the  EDMS  With  Other  Models 
1  . 1  General 

The  method  -for  establishing  the  performance  of  both  EMISSMOD  and  6IM1  was 
to  select  representative  airfield  scenarios  and  process  these  scenarios  through 
the  EMISSMOD  and  GIMM  models.  These  same  scenarios  were  then  processed  through 
criteria  models  for  comparison  purposes. 

J.2  Emission  Model  (EMISSMOD)  Comparison 

EMISSMOD  performance  was  determined  by  running  EMISSMOD  and  a  criteria 
model  through  the  same  Pease  AFB  scenario.  Pease  AFB  was  selected  because  it 
included  all  sources  listed  in  the  EDMS. 

The  criteria  documents  for  EMISSMOD  comparison  were: 

1.  Methods  and  constants  provided  in  the  EPA  report,  AP-42  (EPA  1980) 

2.  American  Petroleum  Institute  listings  (API  1978) 

3.  AQAM  model  results  (Pease  1977).  (The  Pease  AFB  scenario  was 
processed  by  AQAM  in  1977.) 

Every  source  type  included  in  EDMS  was  evaluated  and  the  results  are  listed 
in  tables  1-4. 

Emission  rate  differences  between  EMISSMOD  and  criteria  model  results 
ranged  between  +4  and  -3  percent. 
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TABLE  B1 

MODEL  COMPARISON  RESULTS 


TRAINING 

FIRES 

MODEL 

CO 

HC 

NOx 

SOx  1 

Part i cu 1 ates 

EDMS 

2.95E  07 

1  . 69E 

07 

2.19E  05 

5.27E 

04 

6.74E  06 

A  QAM 

2.95E  07 

1  . 69E 

07 

2.39E  05 

5.27E 

04 

6.74E  06 

TANK  FARMS 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cul ates 

EDMS 

0.00E  00 

1 .29E 

06 

0.00E  00 

0.00E 

00 

0.00E  00 

API 

0.00E  00 

1  . 27E 

06 

0.00E  00 

0.00E 

00 

0.00E  00 

NATURAL 

GAS  HEATING 

PLANT 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cu 1 ates 

EDMS 

1.09E  06 

2.14E 

05 

5.44E  06 

0.00E 

00 

1.63E  05 

AP-42 

1  . 09E  06 

2.14E 

05 

5.44E  06 

0.00E 

00 

1 .63E  05 

FUEL  OIL 

HEATING  PLANT 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cul ates 

EDMS 

1.23E  06 

8.63E 

05 

1 .78E  07 

5.15E 

07 

6.78E  06 

AP-42 

1  . 23E  06 

8.63E 

05 

1 . 78E  07 

5.15E 

07 

6.78E  06 
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TABLE  B2 

MODEL  COMPARISON  RESULTS  <CONT.) 


INCINERATOR 

MODEL 

CO 

HC 

NOx 

SOx 

Part i cul ates 

EDMS 

2.03E 

08 

1  .63E 

07 

2.44E  07 

1 . 22E 

07 

6.50E  05 

AQAM 

2.03E 

08 

1  , 63E 

07 

2.44E  07 

1  . 22E 

07 

6.50E  05 

AUTOMOBILES  ON 

ROADWAY  -- 

100% 

COLD  STARTED 

AT  5  MPH 

MODEL 

CO 

HC 

NOx 

SOx 

Part i cul ates 

EDMS 

5.76E 

06 

3.95E 

05 

3.00E  04 

9. DOE 

01 

3. HE  03 

AP-42 

5.76E 

06 

3.95E 

05 

3.00E  04 

9.00E 

01 

3. 11E  03 

AUTOMOBILES  ON 

ROADWAY  — 

STABILIZED  AT  30  MPH 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cul ates 

EDMS 

6.93E 

04 

7.97E 

03 

9.47E  03 

4.49E 

01 

1.56E  03 

AP-42 

6.93E 

04 

7.97E 

03 

9.47E  03 

4.49E 

01 

1 . 56E  03 

AUTOMOBILES  ON 

ROADWAY  — 

20'/. 

COLD  START  AT 

30  MPH 

MODEL 

CO 

HC 

NOx 

SOx 

Par  1 1 cul ates 

EDMS 

1  . 86E 

05 

1  .60E 

04 

1.06E  04 

4.58E 

01 

1 .59E  03 

AP-42 

1 .86E 

05 

1  . 60E 

04 

1  . 06E  04 

4.58E 

01 

1 . 59E  03 
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MODEL 

COMPARISON 

RESULTS  ■ 

!CONT 

.) 

AUTOMOBILES  ON  ROADWAY  — 

20’/. 

COLD  START 

AT  30  MPH  (SHORTER  ROAD) 

MODEL 

CO 

HC 

NOx 

SOx 

Part i cul ates 

EDMS 

1 .90E  04 

1  . 63E 

03 

I  . 08E  03 

4.67E 

00 

1 . 62E  02 

AP-42 

1 . 89E  04 

1  . 66E 

03 

1.09E  03 

4.58E 

00 

1.61E  02 

AUTOMOBILE  PARKING 

LOT 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cu 1 ates 

EDMS 

4.45E  03 

1  . 70E 

02 

1  . 41 E  01 

4.94E 

-1 

1.71E  00 

AP-42 

4.45E  03 

1  . 70E 

02 

1.41E  01 

4.94E 

-1 

1 . 61 E  00 

AIRPLANES 

.  --  "TRANSENT'  (AQAM 

GENERIC  TRANSIENT) 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cu 1 ates 

EDMS 

8.79E  07 

1  . 74E 

07 

1  » 4 1 E  07 

1  . 49E 

07 

3. HE  06 

AQAM 

8.77E  07 

2.57E 

07 

1  . 41 E  07 

1  . 41 E 

07 

3.06E  06 

(FUELING) 

-8.34E 

06 

AQAM 

8.77E  07 

1  . 74E 

07 

1  .41 E  07 

1  . 41 E 

07 

3.06E  06 

AIRPLANES 

i  —  B727 

MODEL 

CO 

HC 

NOx 

SOx 

Part icul ates 

EDMS 

1 . 37E  08 

3.69E 

07 

5.43E  07 

5.90E 

06 

1 . 95E  06 

AP-42 

9.26E  07 

2.22E 

07 

4.91E  07 

5.40E 

06 

1 . 94E  06 

GSE 

4.02E  07 

8.94E 

06 

2.85E  06 

- 

- 

APU 

4.86E  06 

1  . 2 1 E 

06 

3.69E  06 

6.46E 

05 

- 

SHUTDOWN 

_ 

4.23E 

06 

- 

_ 

— 

TOTAL 


1 .  38E  08  3.66E  07 


5.56E  07 


5.94E  06 


1 .  94E  06 
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TABLE  B4 

MODEL  COMPARISON  RESULTS  <CONT.) 

AIRPLANES— B737 


MODEL 

CO 

HC 

NOx 

SOx 

Par  t  i  cul ate s 

EDMS 

7.93E 

07 

2.09E 

07 

3.66E 

07 

4.I9E 

06 

1.29E  06 

AP-42 

6.18E 

07 

1  . 49E 

07 

3.27E 

07 

3.6SE 

06 

1.28E  06 

GSE 

1  . 21E 

07 

2.69E 

06 

8.07E 

05 

- 

- 

APU 

5.40E 

06 

1  . 50E 

06 

3.33E 

06 

5.88E 

05 

- 

SHUTDOWN 

- 

2.83E 

06 

- 

- 

- 

TOTAL 

7 . 92E 

07 

2. 19E 

07 

3.68E 

07 

4.20E 

06 

1.28E  06 

AIRPLANES 

— OH  — ■ 

6 

MODEL 

CO 

HC 

NOx 

SOx 

Par  t i cul ates 

EDMS 

I  .I8E 

07 

8.60E 

06 

1  . 35E 

06 

2.76E 

05 

- 

AP-42 

1  . 14E 

0? 

8.60E 

06 

1  . 35E 

06 

2.92E 

05 

- 
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1.3  Dispersion  Model  Comparisons 

The  source-receptor  scenario  tor  the  G1MM  evaluation  is  shown  in 
•figure  5.  These  sources  were  processed  through  both  GlhM  and  either  HIMAY2  or 
PAL.  The  later  two  models  acted  as  criteria  models  for  evaluating  GIMi 
performance.  The  results  are  listed  in  tables  5  through  8. 

Concentration  differences  between  GlhM  and  the  criteria  models  for  all 
sources  and  stability  classes  tested  ranged  between  +8  and  -3  percent. 


f "  *  1 
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TABLE  B5 

MODEL  COMPARISON  RESULTS 
ACCELERATING  AIRCRAFT 


* 

' 

P/G  Stabi 1 i ty 

Cl  ass 

Receptor 

n 

Wind  D i rec t i on  - 
Wind  Veloc i ty  * 
Emission  Rate  * 

Concentrat ion 
(grams/m^) 

6IMM  PAL 

250° 

2m/sec 

2.64  grams/sec 

Percent 

D  i  Terence 

GIMM/PAL  C/.) 

* 

> 

1 

2.7IE-5 

2.79E-5 

-3 

k 

2 

2.70E-5 

2.67E-5 

♦  1 

B 

3 

1 . 73E-5 

1 . 75E-5 

-1 

4 

1 .09E-5 

1 .11E-5 

-2 

fet 

5 

3.04E-6 

3.05E-6 

0 

6 

5.38E-6 

5.39E-6 

0 

1 

3.I7E-5 

3.10E-6 

♦  2 

2 

3.57E-5 

3.40E-5 

♦  5 

E 

3 

3.30E-5 

3.17E-5 

44 

4 

2.78E-5 

2.68E-5 

43 

5 

1  .41E-5 

1 .39E-5 

41 

6 

2.04E-5 

2.00E-5 

4  1 

t 
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TABLE  B 4 

MODEL  COMPARISON  RESULTS 
AREA  SOURCE 


Wind  Direction  =  250^ 

Wind  Velocity  *  2m/sec 
Emission  Rates: 

(Area  1)  *  5.774x10 

(Area  2)  =  1.444x10 


P/G  Stabi 1 i ty 
Cl  ass 


Receptor 

4 


Concentrat i on 
(grams/m3) 

GlhM  PAL 


1 

7.93E-3 

7.48E-3 

2 

4.44E-3 

4.32E-3 

3 

3.74E-3 

3.74E-3 

4 

2.41E-3 

2.42E-3 

5 

5.47E-4 

5.44E-4 

4 

4.10E-4 

4.09E-4 

1 

2.11E-2 

1 .98E-2 

2 

1 .92E-2 

1 . 81 E— 2 

3 

1 .29E-2 

1 . 27E-2 

4 

9.43E-3 

9.34E-3 

5 

4.08E-3 

4.07E-3 

4 

2.03E-3 

2.02E-3 

4  grams/m3-sec 
^  gram s/m3 -sec 


Percent 

Difference 

GIMM/PAL  ('/.) 


+  3 
♦  2 
0 
0 
0 
0 


47 
44 
42 
♦  1 
0 
0 
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MOOEL  COMPARISON  RESULTS 
POINT  SOURCE 

Wind  Direction  *  250^ 

Wind  Velocity  =  2m/sec 
Emission  Rate  *  0.75  grams/sec 


P/6  Stabi 1 i ty 
Cl  ass 


B 


Concentrat ion 

Receptor  (grams/m^) 

* 


Percent 

Difference 


6IMM 

PAL 

6IMM/PAL 

1 

1 .77E-3 

1 .78E-3 

0 

2 

1  .<45E-3 

1  .<S2E-3 

♦  1 

3 

4.70E-4 

4.79E-4 

-2 

4 

2.12E-4 

2.15E-4 

-1 

5 

2.09E-4 

2.10E-5 

0 

6 

1 .54E-4 

1 . 55E-5 

-1 

1 

7.21E-4 

6.75E-4 

+  7 

2 

1 .42E-3 

1 . 32E-3 

♦  8 

3 

I . 63E-3 

1 .64E-3 

0 

4 

9.16E-4 

9.28E-4 

-1 

5 

1 .99E-4 

2.00E-4 

0 

6 

1 .51 E-4 

1 . 49E-4 

♦  1 
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TABLE  B8 

MODEL  COMPARISON  RESULTS 
LINE  SOURCE 


Wi nd  D i rec t i on 
Wind  Uel oc i ty 
Emission  Rate 


250° 

2m/sec 

0.27  grams/sec 


P/G  Stab i 1 i ty 
Cl  ass 


B 


E 


Concentnat i on 

Percen  t 

Receptor 

(grams/m^) 

Difference 

if 

GlhM  HI WAY  2 

GIMM/HIWAY  2  CA) 

1 

9.73E-2 

9.25E-2 

♦  5 

2 

8.32E-2 

7.86E-2 

♦  6 

3 

3.10E-2 

3.08E-2 

♦  1 

4 

1 .59E-2 

1 .58E-2 

♦  1 

5 

4.01E-3 

3.86E-3 

44 

6 

6.23E-3 

5.94E-3 

45 

1 

1  .HE-! 

1 . 07E-1 

44 

2 

1 .09E-1 

i .04E-1 

45 

3 

5.33E-2 

5.29E-2 

41 

4 

2.90E-2 

2.89E-2 

0 

5 

1 .54E-2 

1 .54E-2 

0 

6 

1 .81E-2 

1 .81E-2 

0 
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SOURCE  CODE  DESCRIPTION 
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TABLE  OF  CONTENTS 


1  Fac i 1 i t i es  Sources 

1.1  Variables . 3 

1 .2  Code  Listing. . 7 

2  Roadway  Sources 

2.1  Variables . 23 

2.2  Code  Listing  . 27 

3  Parking  Lot  Sources 

3.1  Variables . 45 

3.2  Code  Listing . ...49 

4  Airplane  Sources 

4.1  Variables . 66 

4.2  Code  Listing.. . 69 

5  Weather  Programs 

5.1  Meteorological  Preprocessor . 87 

5.2  Time  Interval  Preprocessor . . . 93 


NAME 

TYPE 

A 

COUNTER 

A 

COUNTER 

At 

STRING 

STRING 

B* 

STRING 

C 

REAL 

C 

INTEGER 

Cl 

REAL 

C2 

REAL 

C3 

REAL 

C4 

REAL 

chr$15 

str i ng 

CHR*2? 

STRING 

CHR$81 

STRING 

D 

INTEGER 

D 

REAL 

D*/.(D1) 

INTEGER 

D1 

REAL 

02 

REAL 

D3 

REAL 

D4 

REAL 

DXY 

REAL 

DXZ 

REAL 

DY 

REAL 

D2 

REAL 

F 

REAL 

-C3- 

UARIABLE  LIST 

DESCRIPTION 

COUNTS  OFF  PTt  IN  SUBSTRINGS  OF  8  CIttRACTERS  EACH 
FS(a)  —  COUNTER  FOR  7  DAYS  OF  WEEK 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGN*  2  (TABLE  LOOKUP) 
REPLY  CHARACTER  ENTERED  BY  USER 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  Y  (TABLE  LOOKUP) 
CROSSUIND  CONCENTRATION  FACTOR 

ASSIGNMENT  OF  LEFT  2  CHARACTERS  OF  INPUTTED  YEAR  (CENTURY) 
CROSSUIND  COORDINATE  OF  .LINE  ENDPOINT 
CROSSUIND  COORDINATE  OF  LINE  ENDPOINT 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
control  character  ■for  prowriter  printer  (condensed  mode) 
CONTROL  CHARACTER  FOR  PROWRITER  PRINTER  LINE  LENGTH 
CONTROL  STRING  FOR  PROWRITER  PRINTER  LINE  LENGTH 
ASSIGNMENT  OF  RIGHT  2  CHARACTERS  OF  INPUTTED  YEARC100  YRS) 
DOWNWIND  CONCENTRATION  FACTOR 

D%  ( 7 )  TEMP  FACTOR  -  WEEKDAY  (30%  ACT  =  .3  *  10) 

DOWNWIND  COORDINATE  OF  LINE  ENDPOINT 

DOWNWIND  COMPONENT  OF  LINE  ENDPOINT 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 

VIRTUAL  POINT  INTERPOLATION  VALUE 

VIRTUAL  POINT  INTERPOLATION  VALUE 

CWWGE  IN  SIGMA  Y  BETWEEN  INDICES  I  f*ID  1  +  1 

CW*iGE  IN  SIGMA  Z  BETWEEN  INDICES  I  ttfD  I  +  l 

BUOYANCY  FLUX 
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VARIABLE  LIST 


NAME 

TYPE 

DESCRIPTION 

F* 

STRING 

F*( 6)  SUBSCRIPTED  VAR  —  READS  DAY  OF  WEEK  DATA 

STRING 

FC 

INTEGER 

DAY  OF  MONTH  (CONVERTS  DAY  OF  WEEK  TO  ONE  OF  5  WEEKS  IN  MO 

FM* 

STRING 

FM*(A)  STRINGS  USED  TO  SET  UP  REPORT  FORMAT  < 1 2" 

A*  VALUES) 

FM*(A) 

STRING 

TEXT  STRING  FOR  PRINTED  OUTPUT  REPORT 

G 

REAL 

NORMALIZED  CONCENTRATION 

GP 

REAL 

g/PI  =  3.12139 

H 

INTEGER 

HOUR  OF  DAY  (REDUNDENT  WITH  HI) 

H 

REAL 

EFFECTIVE  SOURCE  HEIGHT 

HX(H1) 

INTEGER 

HX(24)  TEMP  FACTOR  -  HOUR  OF  DAY  (50X  ACT  =  .5  « 

10) 

HI 

INTEGER 

HOUR  OF  DAY 

HF 

INTEGER 

HOURS  IN  YEAR  CONSTANT— 8760 

I 

COUNTER 

Y/SIGMA  Y  RATIO  *  10  —  40  TABLE  LOOKUP  POINTS  ( 

4  SIGMA) 

I 

COUNTER 

DISTANCE  INCREMENTAL  INDEX  FOR  P/G  TABLE  LOOKUP 

(101  DI ST) 

IN* 

str i ng 

8  CHARACTER  READ  OF  TEMPROAD  — IN*(A?  OR  IN*  <K> 

-K  &A  SAME 

IN* 

STRING 

INPUT  VARIED  LENGTH  STRINGS  OF  ROADFILE— C/D, XCLD.SIG, TEMP 

IXY 

INTEGER 

VIRTUAL  POINT  INDEX  FOR  TABLE  INTERPOLATION 

IXZ 

INTEGER 

TABLE  INDEX  FOR  VIRTUAL  POINT  INTERPOLATION 

J 

COUNTER 

P/G  CLASS  INCREMENTAL  INDEX  3  CLASSES  (TABLE  LOOKUP) 

J1 

COUNTER 

COUNTER 

K 

INTEGER 

GENERAL  COUNTER 

KF 

INTEGER 

Y  -  ENDPOINT  IN  SCREEN  COORDIIATES  FOR  GRAPHICS 

KG 

INTEGER 

X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

KH 

INTEGER 

Y  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

KI 


INTEGER  X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 


-  C5  - 

VARIABLE  LIST 


N¥IE 

TYPE 

DESCRIPTION 

M 

INTEGER 

ASSIGNED  INTEGER  VALUE  OF  STRING  MONTH  i  .e  .* January* < H t3> 

m 

STRING 

USER  INPUT  MONTH  STRING 

MXCM1 > 

INTEGER 

M7< 12)  TEMPORAL  FACTOR  -  MONTH  <40 X  ACTIVITY  =.4  «  10) 

Ml 

INTEGER 

MONTH  — REDUNDENT  WITH  “M* 

N 

REAL 

BRUNT -VA1SALA  FREQUENCY 

ND(  I ) 

REAL 

ND< I >  GAUSSIAN  EXPONENTIAL  VALUE  <0  -  1)  TABLE  LOOKUP 

P2 

REAL 

STABILITY  INDEX  FOR  TABLE  LOOKUP 

PC<I) 

REAL 

POLLUTANT  CONCENTRATION  FOR  SPECIES  I 

PG 

INTEGER 

PASQU1 LL/GIFFORD  STABILITY  CLASS 

PI 

REAL 

PI  =  3.14159 

Q(P) 

REAL 

Q<5)  INTERPOLATED  EMISSION  RATE  —  GM/S  <5  POLLUTANTS) 

GX 

REAL 

DUMMY  VARIABLE  USED  IN  STRING  CLEARING 

RR 

COUNTER 

COUNTER  FOR  RECEPTORS 

ST 

REAL 

STACK  TEMPERATURE 

STDIA 

REAL 

STACK  DIAMETER 

TE 

real 

TE< 5)  -  TOTAL  EMISSIONS  -  SUM  OF  *Q*  <5  POLLUTANTS) 

TEMP 

REAL 

USER  INPUT  TEMPERATURE 

TEMP 

REAL 

AMBIENT  TEMPERATURE 

TF 

INTEGER 

EQUIVALENT  HOURS  OF  FULL  POWER  OPERATION 

TH 

REAL 

WIND  ANGLE  IN  RADI ENS 

TS 

REAL 

LAPSE  RATE 

TS 

REAL 

POTENTIAL  TEMPERATURE  SLOPE  ' 

VS 

REAL 

STACK  FLOW  SPEED 

W7<U1) 

INTEGER 

W/.<5)  temp  factor  -  monthweek  <307.  activity  =  .3  *  10) 

W1 


INTEGER  WEEK 


-  c«s  - 

VARIABLE  LIST 


NAME 

TYPE 

DESCRIPTION 

US 

REAL 

USER  INPUT  U1ND  SPEED 

US 

REAL 

UIND  SPEED 

wv 

REAL 

VOLUME  FLOW  RATE 

X* 

STRING 

READ  IN  -x*  COORD  STRING  FOR  RECEPTOR  -  8  CHAR  LONG 

XF 

REAL 

DOUNU1ND  PLUME  DISPLACEMENT 

XR 

REAL 

■X*  COORDINATE  OF  RECEPTOR 

Y* 

STRING 

READ  IN  “Y*  COORD  OF  RECEPTOR  RANDOM  ACCESS  8  CHAR  LONG 

YO 

REAL 

INITIAL  PLUME  SIGMA  Y 

Y 1 

REAL 

■Y*  COORDINATE  OF  ROAD  ENDPOINT 

VARIABLE  LIST 

NAME 

TYPE 

DESCRIPTION 

Y2 

REAL 

■Y*  COORDINATE  OF  OTHER  ENDPOINT  OF  ROAD 

YR 

REAL 

* Y"  COORDINATE  OF  RECEPTOR 

YR* 

STRING 

USER  INPUT  OF  ’YEAR* 

YT 

REAL 

TABULATED  SIGMA  Y  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKUP 

ZO 

REAL 

INITIAL  PLUME  SIGN*  Z 

ZP 

REAL 

PLUME  RISE 

2Q 

INTEGER 

BOOLEAN  CONTROL  <0  or  1)  IF  INPUT  ERROR  IN  DATE,  UEATHER 

ZT 

REAL 

TABULATED  SIGMA  Z  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKUP 

-  C7  - 

«•**««**«*•*»**»*****«*«»•*»**••«»«•»»*»»***«•*•***•*•*••*•«•*««*«**•*****«*•«* 
•  « 

«  POINT  SOURCE  DISPERSION  MODEL  * 

«  * 

a*****#*###*#*#*****#*#*********##***####*#*#*****###*####*#*#****#*###******** 


10  DIM  IN*<84),  MX(  12) ,  W7(5>,  Fl<15),  D7.<7),  H7<24>,  FM*<18),  E<5) 
12  D’M  FA*<4>,  F*<4),  PC<5)  ,  Q<5) 

15  DIM  ND<40) ,  TC(5,  5) ,  2T< 100 ,  3) ,  YTCIOO,  3) ,  TE(5) ,  GM*(10> 

19  PI  =  0 

20  60SUB  15000  '  DEFINE  FAC*  AS  POUER/HEAT  PLFNTS 
22  HOURN  =  0 

24  INPUT  ■ SCREENING  -  'S'  OR  REFINED  -  ' R' " ;  BAT* 

24  GOSUB  14070:  IF  BAT*  <>  'S'  AND  BAT*  <>  'R'  THEN  24 
28  IF  BAT*  =  *3“  THEN  30  ELSE  OPEN  *  1 ‘ ,  *6,  'WEATHER .DAT* 

30  OPEN  *1',  #1 ,  FACF* 

40  OPEN  'I',  #3,  FAC* 

40  FOR  A  =  1  TO  4:  READ  FA*<A>:  NEXT  A 

45  DATA  'POWER/HEAT' INCINERATOR' , 'TRAINING  FIRE", 'FUEL  FACILITY' 
80  LPRINT  CHR*<27);  CHR*<81> 

90  WIDTH  'LPT1  :* ,  132 

93  TWR  =  1 

95  GOSUB  1470 

94  P  =  0 
99  J1  =  0 

115  GOSUB  2830  '  SET  UP  FOR  1NTERP  OF  GAUSS  CURVE 
114  GOSUB  2940  '  READ  INTERPOLATION  TABLE  FOR  SIGMAS 

118  GOSUB  1590  '  INPUT  TIME  AND  WEATHER 

119  GOSUB  1190  '  ZELLERS  CONGRUENCE  LAW 

120  IF  HOURN  =  0  THEN  GOSUB  5100  '  SETUP  AND  PRINT  REPORT 
122  GOSUB  3900  '  INPUT  RECEPTOR  LOCATION 

125  GOTO  1020  '  READ  SOURCE 

124  GOSUB  1800  '  TEMPORAL  FACTOR  SUBROUTINE 

130  GOSUB  1500  '  TEMPERATURE  INTERPOLATION 

135  GOSUB  15300  'PLUME  RISE  CALCULATION 

140  GOSUB  2400  '  CALCULATE  DISPERSION 

150  GOTO  125 

140  END 


-  C8  - 

«*#******««*#**#**#*****»*#**#****##****»***#»**«#****«*#*#**********«******#** 


*  * 

*  NAME:  F1LEREAD  * 

*  FUNCTION:  READS  IN  FACILITY  FILES  * 

*  CALLED  FROM:  MAIN  —  PWIN  PROGRAM  * 

*  t 


••a##***#**##*##**********##*****######*##**#***#*##*#***********#**********#** 

1051  H  =  UAL<1N<<22>> :  20  =  1.5 

1052  YO  =  3 

1055  FOR  K  »  1  TO  7:  LET  DX.<K)  =  10  *  L<AL<IN<<K  ♦  30)):  NEX".  K 

1060  FOR  K  =  1  TO  5:  LET  W/.CK)  =  10  *  L<AL<IN<CK  +  37>):  NEXT  K 

1065  FOR  K  =  1  TO  12:  LET  MX(K)  =  10  *  <JAL<1N<<K  *  42)):  NEXT  K 

1070  FOR  K  =  1  TO  24:  LET  HX<K)  =  10  *  <JAL<IN<<K  ♦  54)):  NEXT  K 

1075  FOR  K  =  1  TO  5:  LET  E<K)  =  10  *  L<AL<IN<<K  ♦  78)):  NEXT  K 

1080  QX  =  FRE<0) 

1090  EX  =  0 

1100  INPUT  *3,  IN<< 1 ) 

1110  FOR  K  =  1  TO  LEN< IN<< 1 ) )  STEP  8:  EX  =  EX  *  1 :  £<EX>  *  <JAL<MID<<  IN<<  1 ) , 

K,  8) ) :  NEXT  K 

1153  X  =  L*AL<  IN<<  19) ) :  Y  =  <JAL<  1N<<20) ) 

1160  STACKHGT  =  <JAL<  IN<< 28) ) :  STACKDIA  =  UAL<  IN<< 29) ) :  BUILDHGT  =  UAL<IN<<25)> 
1165  STACTEMP  =  <JAL<  1N<< 26) ) :  STACFLOU  =  <JAL<  1N<<27) ) :  IF  STACFLOW  <  5  THEN 
STACFLOU  =  5 
1175  GOTO  126 

*•*•«*«**«*«**•*«««*••«•«**«««**«*«************•»****•»*•«*  #*«*******#»»»**»** 


*  * 

*  NAME :  DAY  * 

*  FUNCTION:  USES  ZELLER'S  CONGRUENCE  LAU  TO  DETERMINE  DAY  OF  WEEK  * 

*  FROM  DATE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGR^I  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


*#*****»*«***«**«****«###*»»***«*»»**#**************************«**«*********** 
1190  CLS 

1200  C  *  UAL<LEFT<<YR< ,  2)):  D  =  UAL<RIGKT<<YR< ,  2)) 

1210  GOSUB  1337 

1220  Ml  =  I NT <M) :  W1  =  1NT<FC  /  7)  ♦  1 :  HI  =  INT<HR) 

1230  M  =  M  -  2:  IF  M  <  1  THEN  D  =  D  -  1 :  M=M+12 

1240  IF  D  <  0  THEN  D  =  99  ♦  D:  C  =  C  -  1 

1250  FK  =  < 1NT <2.6  »  M  -  .2  +  .00001)  ♦  FC  +  D  *  INT<D  /  4  +  .00001  )  + 

INT<C  /  4  ♦  .00001)  -  <2  *  C)) 

1260  Y  =  FK  /  7 

1270  2  =  ABS<Y  -  1NT <Y  +  .00001  ))  'DECIMAL  REMAINDER 

1280  DT  =  I NT < 7  *  Z  ♦  .00001  )  'INTEGER  REMAINDER 
1290  DT  *  DT  +  1 
1330  RETURN 


-  c? 


**##*#****#*******»*******#####***********##**********#»******##*#####*##)HHHH 

* 

*  NAME :  MONTH 

*  FUNCTION:  ASSIGNS  MONTH  INDEX  M  FOR  SUBROUTINE  DAY 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

***«********«#**********#*i«****«#*#**#**#*####****#********#*##**##*#****##.)H 


1337 

M  = 

=  13 

1340 

IF 

LEFT*<M* , 

3) 

= 

'JAN' 

THEN 

M 

= 

1 

1350 

IF 

LEFT*<M* , 

3) 

= 

'FEB' 

THEN 

M 

= 

2 

1360 

IF 

LEFT*(M* , 

3) 

= 

•hWR' 

THEN 

M 

= 

3 

1370 

IF 

LEFT*<M* , 

3) 

- 

■APR' 

THEN 

M 

= 

4 

1380 

IF 

LEFT*(M* , 

3) 

= 

■MAY' 

THEN 

M 

= 

5 

1390 

IF 

LEFT*(M* , 

3) 

= 

'JUN' 

THEN 

M 

= 

6 

1400 

IF 

LEFT*<M* , 

3) 

3 

'JUL' 

THEN 

M 

= 

7 

1410 

IF 

LEFT*(M* , 

3) 

= 

'AUG" 

THEN 

M 

= 

8 

1420 

IF 

LEFT*(M* , 

3) 

= 

■SEP' 

THEN 

M 

= 

9 

1430 

IF 

LEFT*<M* , 

3) 

= 

•OCT" 

THEN 

M 

= 

10 

1440 

IF 

LEFT*<M* , 

3) 

= 

■NOV' 

THEN 

M 

1 1 

1450 

1460 

IF  LEFT* (M* , 
RETURN 

3) 

- 

■DEC' 

THEN 

M 

— 

12 

•jut##**##**#**##*#***#***##*******#**#**#****#****##*******###*******#*#*##*** 

# 

*  NAME:  WEEK 

«  FUNCTION:  SETS  UP  TABLE  OF  NAMES  OF  DAYS 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

*#**#******#*****#******#**#»********«*«*#**********##****#******««*****#**«*) 
1470  FOR  A  =  0  TO  6:  READ  F»(A) :  NEXT  A 

1480  DATA  ■SUNDAY', 'MONDAY* , 'TUESDAY' , ’WEDNESDAY”, "THURSDAY', 'FRIDAY”, 
■SATURDAY" 

1490  RETURN 

««*****«******•*«****«****«*•»***«***«««*»»**»»**»*»*•«*«**«*•«*«***«*«***•**' 

* 

*  N¥1E:  EMISSIONS 

*  FUNCTION:  PUTS  POINT  EMISSIONS  IN  CORRECT  UNITS 

*  CALLED  FROM:  1VUN  —  MAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

«*«*«******••**«**»*»**»*******••*•****»•**«***««****•»*•••»•*«•«*»•********* 

1540  FOR  P  =  1  TO  5 
1550  Q(P)  =  E(P)  /  60  *  TF 
1560  NEXT  P 
1580  RETURN 


a****#*****#*#**#**#**##*#*#**#**#**#**#******##****#****#*#*#****###***##***## 


*  « 

*  NAME;  INPUT  * 

*  FUNCTION:  INPUT  OF  METEROLOGY  AND  DATE  FROM  KEYBOARD  « 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

«  CALLS:  CONDITIONALLY  CALLS  THE  FILE  INPUT  VERSION  OF  THIS  * 

«  ROUTINE  * 

*  * 


*«***«*•»**««««***««»*«***•**•«»**•**»«**»•«*•»*«««*«**•«»««*««**«**•*•«*«»*«»* 
1590  CLS  :  IF  BAT*  =  *R'  THEN  2000 

1593  LOCATE  5,  10:  INPUT  "YEAR  =  ';  YR*:  IF  20  >  0 

THEN  RETURN 

1594  LOCATE  7,  10:  INPUT  'MONTH  =  * ;  M* 

1596  GOSUB  16000:  GOSUB  1337:  IF  ZQ  >  0  THEN  RETURN 
1598  IF  M  =  13  THEN  GOTO  1594  '  CHECK  MONTH  IS  IN  BOUNDS 

1600  LOCATE  9,  10:  INPUT  “DAY  OF  MONTH  =  *;  FC:  IF  ZQ  >  0 

THEN  RETURN 
1605  DA  =  FC 

1610  LOCATE  11,  10:  INPUT  'HOUR  OF  DAY  (1-24)  ■  HR:  IF  ZQ  >  0 

THEN  RETURN 

1620  LOCATE  13,  10:  INPUT  “TEMPERATURE  (DEG  F>  =  ';  TEMP:  IF  ZQ  >  0 
THEN  RETURN 

1622  IF  TEMP  >  100  THEN  TEMP  =  100 
1624  IF  TEMP  <  0  THEN  TEMP  =  0 

1630  LOCATE  15,  10:  INPUT  “WIND  SPEED  <M/S>  *  *;  WS:V=US: 

IF  V  <  1  THEN  V  =  1 

1631  IF  ZQ  >  0  THEN  RETURN 

1635  LOCATE  17,  10:  INPUT  'WIND  DIRECTION  (DEG  N)  =  ' ;  U 

1636  IF  ZQ  >  0  THEN  RETUf^l 

1640  LOCATE  19,  10:  INPUT  'P/G  CLASS  (2-5)  =  ';  PG:  IF  ZQ  >  0 

THEN  RETURN 
1650  CLS 
1660  ZQ  =  0 

1665  PRINT  *2. MONTH  =  '  ;  M* 

1670  PRINT  “3. DAY  OF  MONTH  =  ' ;  FC 
1675  PRINT  “4. HOUR  OF  DAY  =  ' i  HR 
1680  PRINT  '5. TEMPERATURE  =  ';  TEMP 
1685  PRINT  *6. WIND  SPEED  =  ' ;  WS 
1690  PRINT  *7. WIND  DIRECTION  =  U 
1695  PRINT  "8.PG  CLASS  =  ' ;  PG 

1702  INPUT  'ARE  THESE  CORRECT  (Y  OR  N)'j  PN* 

1703  IF  AN*  <>  'N*  THEN  RETURN 

1704  ZQ  =  ZQ  ♦  1 

1705  INPUT  'CHANGE  WHICH  VALUE" {  AN 

1706  CLS 

1710  ON  AN  GOSUB  1593,  1594,  1600,  1610,  1620,  1630,  1635,  1640 

1711  ZQ  =  0 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X  X 

*  hfcVIE :  DUTY  x 

«  FUNCTION:  CALCULATE  THE  CORRECT  TEMPORAL  FACTOR  x 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRF*!  » 

*  CALLS:  NO  OTHER  ROUTINES  * 

x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxx* xxxxxx xxxxxxxxxxxxxxx xxxxxxxxxx 

1800  TF  =  M7.<M1)  *  U*/.<U1)  *  D‘/.<DT> 

1810  TF  =  TF  /  10000 
1820  TF  =  TF  »  H%< HI  + 1 ) 

1830  RETURN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X  X 

x  NAME:  WEATHER  x 

*  FUNCTION:  FILE  VERSION  OF  INPUT  ROUTINE  x 

*  CALLED  FROM:  INPUT  —  SUBROUTINE  x 

x  CALLS:  NO  OTHER  ROUTINES  x 

x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2000  IF  EOF (6)  THEN  14500 
2010  INPUT  #4,  ENP< 

2015  IF  ENP<= " *  THEN  GOTO  20U0 

2020  YR<  =  MID<<ENP<,  1,  4):  YR  =  VAL<YR<) 

2030  M<  =  MID<<ENP<,  5,  3):  GOSUB  1337 
2040  FC  =  VAL<MID«ENP<,  8,  2)) 

2050  HR  =  VAL<MIM<ENP< ,  10,  2)) 

2040  TEMP  *  VAL<MID<<ENP< ,  12,  3)) 

2070  WS  =  VAL<M3 D<< ENP< ,  15,  2))  x  . 51 4448 :V=WS : I F  V<1  THEN  V=1 
2080  W  =  VAL<MI D<<ENP< ,  17,  3) 

2090  PG  =  VAL<RIGHT<<ENP< ,  1)) 

2100  IF  US  <  1  THEN  2000 
2110  IF  PG  <  3  THEN  PG  =  3 
2120  RETURN 


-  Cl  2  - 


*«*«*«««•*«****•*«»***•*•«*•*««*«*•***«***«•**«»•*»»*•*«**»«•»*•*»»«*****»*«*** 


* 


* 


*  NAME: 

*  FUNCTION! 

*  CALLED  FROM: 

*  CALLS: 

* 


DISPERSION 

CONTROL  LOOP  FOR  ALL  DISPERSION  CALCULATIONS 
MAIN  --  ttAIN  PROGRAM 

DRAW,  DUTY,  ROTATE,  LENGTH,  DELTA,  CONC,  PRINT 


* 

* 

* 

* 

* 


«<«««*•*<••«•«««««. ..  x  **«**««*  ****#****#*#******»**«***«**««  **mn<**«******##**« 


2600  Cl  =  VAL<1N*<19>>:  D1  =  VAL< 1N*< 20) ) :  C2  =  Cl:  D2  =  D1 
2605  GOSUB  4500'  DRAW  SOURCE 

2620  RX  *  XR:  RY  =  YR'  RECEPTOR  X  AND  Y  LOCATION 
2705  GOSUB  3700'  ROTATE/TRANSLATE 
2740  IF  PG  >  5  THEN  PG  *  5 
2750  IF  PG  <  2  THEN  PG  =  2 

2764  GOSUB  3550'  GET  CONCENTRATION 

2765  GOSUB  12000'  PRINT  RESULTS 

2766  RETURN 


a*********#*#***#*******###********#*#*#***#*****#*#*#*#*#***#*#**#**********#* 


«  * 

*  NAME :  GAUSSTABLE  * 

*  FUNCTION!  CALCULATE  THE  GAUSSIAN  PLUME  TABLE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


#•**•***»»»»»»***»*****««•«**«•*«*««•«•«******««•**«*«*«**»*•««**«•«»****•***«* 


2840  FOR  1  =  0  TO  40 

2850  ND< I )  =  EXP(-.005  »  I  *  I) 

2860  NEXT  I 
2870  RETURN 

**»**•«*************«•«*«««**•«•**««********«*••«««•*•*«**•«*«««««***«********* 


*  « 

*  NAME:  NORMAL  » 

*  FUNCTION:  CALCULATE  THE  NORMAL  DIST  CURVE  « 

«  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  ♦ 

*  * 


a****************************************************************************** 

2890  IF  ABS(X)  >  4  THEN  FX  =  0:  GOTO  2950 
2900  X  =  ABS(X)  *  10 
2910  IX  =  1NT  <X) 

2920  DX  =  (X  -  IX) 

2930  FA  =  ND(IX)  -  NDCIX  ♦  1) 

2940  FX  =  ND(IX)  -  FA  »  DX 

2950  RETURN 


-  Cl 3  - 


a***#***#*####*#***#**#***###*#**#**#*****#**###***#*****#*#**#*#**##********** 


*  * 

*  NAME:  SIGMATA8LE  * 

«  FUNCTION:  READS  IN  SIGMA  TABLE  INFORMATION  FROM  FILE  * 

*  CALLED  FROM:  hWIN  —  MAIN  PROGRAM  » 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  t 


*«**«»*««««««*«**•*•»**••***«*»««<«**««***«****«*•*«**«*««*«*««**«•*«****•**•*< 

2960  OPEN  ‘SIGMA*  FOR  INPUT  AS  #2 
2980  FOR  J  =  0  TO  3 

2990  FOR  I  *  0  TO  100 

3000  INPUT  *2,  A*,  B$ :  ZT<I,  J)  =  VAL<A*):  YTd  ,  J)  =  UAL(B$) 

3010  NEXT  I 

3020  NEXT  J 

3030  CLOSE  *2 
3040  RETURN 

*«**««***«•*••«**««««*««*«««««•«*«****«**********«***•*•••*««**»•*«**«««*«***«* 
«  i 

*  NAME:  SIGMA  < 

*  FUNCTION:  INTERPOLATION  FOR  SIGMAS  < 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  < 

*  CALLS:  NO  OTHER  ROUTINES  < 

«  i 

#*«***#*******#***«*#**#*»***********##****##*#**#*»#*******#*******#*)HHHHHHHH 

3060  IF  X  >  9999  THEN  X  *  9999 
3070  X  *  ABS<X> 

3075  P2  =  PG  -  2 

3076  XZ=X+Z0/ZT  <1 ,P2) 

3078  XY=X+Y0/YT  <1 ,P2) 

3080  IXZ  =  INTCXZ  *  .01) 

3085  IXY=  I NT <XY  «  .01) 

3090  DXZ  =  XZ  *  .01  -  IXZ 
3095  DXY  =  XY  «  .01  -  IXY 

3100  DZ  =  ZT(IXZ  ♦  1,  P2)  -  ZTdXZ,  P2) 

3110  DY  =  YTdXY  ♦  1,  P2)  -  YT ( IXY ,  P2) 

3120  SZ  =  ZTdXZ,  P2)  ♦  DZ  «  DXZ 

3130  SY  =  YTdXZ,  P2)  ♦  DY  *  DXY 

3140  RETURN 


Cl  4 


a***#*****#*****#***#**#*#**##*##**#*#*####**###***#*##**#*###**#*####*###*#**# 


*  « 

*  NAME  s  PREPAIR  * 

«  FUNCTION:  CLIP  AND  SCREEN  POINT  SOURCE  * 

*  CALLED  FROM:  DISPERSION  --  DISPERSION  SUBROUTINE  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

«  * 


«***•«•«*««*******«««***«***#**««*«««»««»****«****<********«•***•«*«***•«**«*** 
3390  D3  =  D1  +  <RX  -  Cl)  *  S 

3400  IF  D1  <  RY  MD  D2  <  RY  THEN  DS  =  -2:  GOTO  3440 
3410  IF  RX  >=  Cl  AND  RX  <=  C2  THEN  DS  =  D3  -  RY:  GOTO  3440 

3420  IF  ABS<RX  -Cl)  <=  ABS<RX  -  C2>  AND  D1  >=  RY  THEN  DS  *  D1  -  RY:  GOTO  3440 

3430  DS  =  D2  -  RY 

3440  IF  Cl  >  C2  THEN  DS  =  -2 

3450  RETURN 

**#****#*#***#********#*****«****#**********#»**********#*»*»*****#*«*#**#*#*»* 


#  * 

*  NFME;  CONC  * 

*  FUNCTION:  CALCULATE  CONCENTRATION  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


**««««**»*•*****«*«**•»•««*««*****«*«««*»*•*««**«**«**»***«**««***«**•#•****•** 


3550 

G  *  0 

3560 

IF  DS  < 

0  THEN  GOTO  3680 

3570 

CP  =  Cl 

3580 

DP  ■  D1 

3620 

X  =  DP: 

GOSUB  3050 

3630 

X  =  H  / 

SZ :  GOSUB  2880: 

3640 

X  =  CP  / 

SY:  GOSUB  2880: 

3650 

G  =  D  * 

C  /  SY  /  SZ  +  G 

3670 

G  =  G  / 

3.14159 

36S0 

RETURN 

«*««****««*««**«**«««***»**«*•»*«*#****«*•*•*»*«**«****•**««***«***«**•«******« 


* 

* 

NAME: 

ROTATE 

* 

* 

# 

FUNCTION: 

CALCULATE  AND  ROTATE  COORDINATES  SO  WIND 

IS  OUT  OF  NORTH  * 

* 

CALLED  FROM: 

DISPERSION  —  DISPERSION  SUBROUTINE 

* 

# 

* 

CALLS: 

NO  OTHER  ROUTINES 

* 

* 

ft###**##**#####***#**##*#)*#*##*###********#*******,*******##*#***#**#***#*#**#** 

3690  X  =  DP  /  SY :  GOSUB  2880:  C  =  FX 

3700  TH  =  3.14159  /  180  »  <-U>:  CO  =  COS(TH) :  SI  =  SIN(TH) 

3710  C3  =  Cl  «  CO  +  D1  *  SI :  D1  =  D1  *  CO  -  Cl  *  SI:  Cl  =  C3 

3720  C4  =  C2  *  CO  ♦  D2  *  SI :  D2  =  D2  »  CO  -  C2  *  SI :  C2  =  C4 

3730  C4  *  RX  *  CO  +  RY  «  SI :  RY  =  RY  *  CO  -  RX  *  SI :  RX  *  C4 

3740  Cl  =  Cl  -  RX:  C2  =  C2  -  RX:  D1  =  D1  -  RY:  D2  =  D2  -  RY:  RX  =  0 :  RY  =  0 

3750  RETURN 


-  CIS  - 


*******************««*•«••*«******•****•*««*««•«*«***•****•**•*•*«***««««•«*«*« 


* 

* 

« 

* 

« 

* 


NAME : 
FUNCTION: 
CALLED  FROM: 
CALLS: 


RECEPTOR 

INPUT  RECEPTOR  FROM  FILE 
MAIN  —  hfcIN  PROGRAM 
NO  OTHER  ROUTINES 


* 

* 

« 

* 


a#*#****##***#*#*******#****#*******#*********#**#***##****##**#****#*****#*#*# 


3904 

RR  =  RR  +  1 

3905 

OPEN  * RECP.TXT*  AS 

#2  LEN  = 

3906 

FIELD  2,  8  AS  X* , 

8  AS  Y$ 

3910 

GET  #2,  RR 

3920 

XR  =  VAL<X*>:  YR  = 

VAL<Y») 

3930 

CLOSE  *2 

3940 

RETURN 

**»*****«**»**««***«jHHHHHHHt***«*#********«#**»*****#****«*«*#***#**##**#****#* 


*  NAME :  DRAW  * 

*  FUNCTION:  DISPLAY  SOURCE  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  REPORT  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


*#*»******#************************#»***#*###***#*****«*********«***##**#*##*** 


4510 

LET  KF  = 

Cl  *  SM  ♦  : 

XO 

4520 

LET  KG  = 

-D1  *  SM  ♦ 

YO 

4530 

IF  KF  < 

0  THEN  KF  * 

0 

4540 

IF  KF  > 

279  THEN  KF 

= 

279 

4550 

IF  KG  < 

0  THEN  KG  = 

0 

4560 

IF  KG  > 

159  THEN  KG 

X 

159 

4570 

LET  KH  = 

C2  *  SM  ♦  XO 

4580 

LET  KI  = 

-D2  «  SM  ♦ 

YO 

4590 

IF  KH  < 

0  THEN  KH  = 

0 

4600 

IF  KH  > 

279  THEN  KH 

= 

279 

4610 

IF  KI  < 

0  THEN  KI  = 

0 

4620 

IF  KI  > 

159  THEN  KI 

= 

159 

4650 

RETURN 

Cl  6 


«««************»»*»»»*»*•*»»**••«•«••«•«•***••*««•««•««*»*«*«•*«*«*•«««**«*•«** 


•  « 

*  NAME:  E  REPORT  * 

*  FUNCTION:  PRINT  EMISSION  REPORT  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  * 


**)HHt*#«*****«***********«***#*«#******##*##*»****#**#*##*###»*#«**«****«****** 

5095  QX  »  FRE(O) 

5100  'FORMAT  REPORT  HEADING 

5150  FM*<  1 )  =  "! - - - . — . - - - 

_  _  ___ _ _ _ _ _ _ _ _ _ _ _  _  ^ , _  ^  _  t  ■ 

—  _  _  _  —  —  —  | 

5155  FMf(lO)  =  ■!  EMISSION 

REPORT  (POINT) 

5160  FM$<2)  =  *:  INPUTS 

!  OUTPUTS  :  ■ 

5170  FM*<11)  =  *!  ’  + 

LEFT*(M$,  3)  ♦  ♦  RIGHT*<“  ”  ♦  STR*(FC),  2)  +  ♦  R1GHT*(YR»,  2)  ♦ 

■  C  ♦  LEFT*(STR$(HR) ,  2)  ♦  ‘OO’ 

5180  Fm<12)  =  "  HR.)  !  “ 

5200  FM*<3)  =  "i  COORDINATES  OF  !  INITIAL  ! 

(AP-42)  i  EMISSION  RATES  !" 

5210  FM*<4)  =  •! POINT  SOURCE'S  !  PARAMETERS(M)  ! - 

_ _ I  _ _ _ _ _ _ _ _ _ _ _ I  « 

l  » 

5215  FM*(9)  *  * ! ORIGIN  <0,0)(M)  !  !  !’ 

5220  Fm<5)  =  •!  REC!  S  SIG  !  SIG  !  PLUME  ’.TONS/ !  TEMP  1 

!  GM/SEC  !  * 

5230  FM$<  6)  =  ■:♦*!  XI  Y1  !  2  !  Y  i  HT.  !  HR  !  (F)  ! 

5240  FM*<7)  =  *  CO  !  HC  !  NOX  !  SOX  I  PART  !* 

5250  fm*<8)  =  •: - : - : - 


5260  LPRINT  FM*<1) 

5265  LPRINT  FM*<10) 

5266  LPRINT  FM*<11);  FM$<12) 

5267  LPRINT  FM*<1) 

5270  LPRINT  FMf ( 2 ) 

5280  LPRINT  FM*<1) 

5290  LPRINT  FM*<3) 

5300  LPRINT  FM*<4) 

530S  LPRINT  FMt < 9 ) 

53)0  LPRiNT  FM*\b/ 

5320  LPRINT  FM*<5);  G* 

5330  LPRINT  FM*(6){  FM*(7) 

5340  LPRINT  FM*<1) 

5350  FOR  A  =  3  TO  13:  FMf ( A )  =  *':  NEXT  A 

5351  QX  *  FRE<0) 

5355  RETURN 


-  C17  - 


*****«»**»**«**#**##*»«**  *****#»***»****««*#«*»**HHHHHHHHHHHHHHHH<****««#**##*** 


«  * 

»  NAME :  REPORT  * 

*  FUNCTION:  PRINT  DISPERSION  REPORT  * 

«  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

»  CALLS:  NO  OTHER  ROUTINES  * 

•  * 


a****************************************************************************** 
5420  OX  =  FRE<0) 

5425  FM*<9>  =  R1GHT*<"  "  *  STR*(R) ,  4) 

5430  FM$<  10)  =  RIGHT*C  "  +  STR*<UAL< IN*( 19) ) ) ,  5) 

5440  FMf(ll)  =  ♦  RIGHT*< "  *  4  STR*<UAL< 1N$< 20 ) ) ) ,  5) 

5470  FM$ < 1 2 )  =  LEFT$( 1N$( 8)  4  ■  *,5) 

5480  FM$< 13)  =  LEFT*<IN*<7)  4  ■  * ,  5) 

5490  FM*<14)  =  LEFT*<IN*<6>  4  •  • ,  5) 

5500  FM* (15)  =  R1 GHT4<  *  *  4  STR*<UAL< 1N*< 1 2) )  *  TF),  5) 

5510  FM$<16)  =  R1GHT*<*  *  4  STR*<TEMP) ,  .4) 

5530  FM*<17)  =  LEFT*<IN*C17)  4  ■  " ,  26) 

5620  FOR  A  =  1  TO  5:  TE<A)  =  TE(A)  4  Q(A) s  NEXT  A 

5700  LPRINT" !" ;FM*<9)  ; " ! "  ;FM*<  1 0 )  ;FM*<  1 1 ) ; " ! "  ;FM*<  1 2) ; " ! "  ;FM$(  1 3) ;  * "  ;FMi(  1 4)  ; 
■ ! * ;FM$< 15) ; * ! * ;FM$< 16) j “ ! " }FM*( 17) j *  J  *  j :F0R  A=1  TO  5: 

LPRINT  USING" IM1 . MU*  A AA  "  ;Q(A) }  sLPRINT" ! "  5  :NEXT  A:LPRINT 
5 706  QX  =  FRE(O) 

5710  RETURN 

*******#********###*##*##*#*##»*******#**»*#*#»»»»***#**#**«*#***#******»**»*** 


*  # 

«  NAME:  PRINT  * 

*  FUNCTION:  PRINT  CONCENTRATIONS  ON  THE  SCREEN  * 

«  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


******»*****»*##*##***»#***##********«#**********»***********#****«********«*** 

12020  FOR  1=1  TO  5:  PC(I)  =  PC<I)  4  G  «  Q<I)  /  V:  X  =  PC(1):  GOSUB  12100: 
PRINT  E*;  "  :  NEXT  I 

12030  IF  HOURN  =  0  AND  TUR  <=  1  THEN  GOSUB  5420 
12040  PRINT 

12100  IF  X  <  IE-09  THEN  X  =  0 

12120  IF  X  =  0  THEN  E*  =  "0.00":  El  =  0:  GOTO  12170 
12130  El  =  LOG(X)  /  LOGUO) 

12140  E2  =  El  -  INT<E1 ) 

12150  E3  =  10  A  E2  4  .005 

12160  E*  =  LEFT*< STR*< E3)  4  ■  ",  4) 

12170  Ef  =  E*  ♦  "E"  4  RIGHT$< "00"  4  STR*< INT(E1 ) ) ,  2) 

12180  RETURN 


-  cie  - 


««*•*««•*«*•**«**•****«***•«*«****«*•«••*«*•***««*****«**««*••*•«*****«««•***«* 


«  « 

*  NAME:  D-REPORT  * 

*  FUNCTION:  PRINT  DISPERSION  REPORT  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  AND  MAIN  —  PWJN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


***»***##**##*#«*****#*»**«#**#*#«*«******«***#*****##****#*»*##***####*#**#*** 

13000  OX  =  FRE<0) 

13001  IF  HOURN  >=  1  THEN  13023 

13002  HOURN  =  HOURN  ♦  1 

13003  IF  TUR  >  1  THEN  13023 

13004  TUR  *  TUR  ♦  1 

13007  LPRINT  FM*<1) 

13008  LPRINT  • 

TOTAL  FOR  QX  =  1  TO  5:LPR1NT  USING  *MM.MMAAAA  *  ;TE<QX> ; :  LPRU4T  ■  !  ■ ; : 

NEXT  QX  : LPRINT 

13009  G*  =  CHR*<252) 

13010  FM*<2)  =  '!  INPUTS  :  ! 

OUTPUT  ! " 

13011  FM* ( 3 )  =  *!  DISPERSION  REPORT  i* 

13016  FM*<1)  =  "  ! - - - 


13017 

GM*<  5)  = 

II  1  « 

>  l 

•  lit 

1  1  1  1 

NO.  !  X  !  Y 

1  l 

1  1 

CO 

l 

» 

HC  ! 

NOX  !  SOX 

!  PART  i ■ 

13018 

GM*< 1 )  = 

" I  DATE  ! HR 

;u/s:uD  :p/g: 

RECEPTOR 

1  1 

l  • 

CONCENTRATION  GM/MA 3 

1  ■ 

1 

13019 

GM*( 2)  = 

m  i  i 

i  i 

:m/s:oeg;a=i ; 

l  l 

1  » 

t  n 
t 

13020 

LPRINT  : 

LPRINT  FM* ( 1 ) : 

LPRINT  FM* ( 3 ) : 

LPRINT  FM* ( 1 ) : 

LPRINT 

FM*<2> : 

LPRINT  FM* < 1 ) :  LPRINT  GM*(1) 

13022  LPRINT  GM*<2):  LPRINT  FM*(1):  LPRINT  GM*<5) 

13023  GM*<3)  =  "!*  ♦  LEFT*<M*,  3)  +  4  RI GHT*(  ■  •  ♦  STR*<FC) ,  2)  +  + 

RIGHT*<YR*,  2)  ♦  * ! “  ♦  LEFT*< STR*< HR) 4 ■  * ,  3)  +  * ! * 4MI D*< STR*(US) + 

•  ■ ,2,3)  +  "!'  +  RI GHT*< "  *  +  STR*(U),  3) 

13024  GM*<4>  =  •!*  RI GHT*<  ’  ■  ■*  STRt(PG) ,  3)  ♦  • • 

13035  J2*  =  RIGHT*< "  “  ♦  STR*<RR)  *  ‘  6) 

13037  YR  =  INT(YR):  XR  =  INT(XR) 

13040  AD*  =  RI GHT*<  *  *  +  STR*(XR) ,  5):  AE*  =  RIGHT*<  *  ’  ♦  STR*(YR) ,  5) 

13050  GM*<  6)  =  J2*  ♦  ‘I*  ♦  AD*  ♦  4  AE*  +  •!'  ♦  *  •  ♦ 

13051  LPRINT  GM*(3)  ;GM*(4)  ;GM*<6) ;  :FOR  I  =  1  TO  5:  LPRINT  USING  -MM.MMAAAA*  ; 

PC< I ) ; :LPR1NT" ! " ; :  NEXT  I :LPRINT 

13074  GOSUB  14700 

13075  FOR  A  =  3  TO  5:  PC<A)  =  0:  NEXT  A 
13100  CLS 

13105  OPEN  * RECP.TXT*  AS  M2  LEN  =  16 

13106  FIELD  2,  8  AS  X*,  8  AS  Y* 

13107  GET  #2,  RR  4  l 

13108  X  =  VAL(X*) :  Y  =  YAL<Y*) 

13109  IF  X  =  0  AND  Y  =  0  THEN  13120 

13110  IF  EOF< 2)  THEN  GOTO  13120  ELSE  CLOSE  Ml:  CLOSE  M2:  CLOSE  M3:  OPEN  •!*, 


-  Cl  9  - 

HI,  FACF* :  OPEN  'I*,  #3,  FAC*:  GOTO  122 

13120  CLOSE  #2:  IF  PI  <  5  THEN  GOSUB  15000:  CLOSE  Ml:  CLOSE  1*2:  CLOSE  M3 : 

TUR  =  1:  HOURN  =  Is  R  *  0:  OPEN  ■ I* ,  HI,  FACF* :  OPEN  *1",  H3,  FAC*: 

RR  =  0:  LPR1NT  FH*(1):  GOTO  119 

13121  IF  BAT*  =  *1*  THEN  INPUT  *  INPUT  ANOT HER  HOUR  *;  QQ*  ELSE  00*  =  "Y" 

13125  IF  QO*  <>  "Y"  AND  QO*  <>  "N"  THEN  13121 

13130  IF  QQ*  =  "Y"  THEN  CLS  :  PI  *  0:  GOSUB  15000:  CLOSE  HI:  CLOSE  H2: 

CLOSE  H3:  TWR  =  1:  HOURN  =  1:  R  *  0:  OPEN  *  I " ,  HI,  FACF*:  OPEN  "1", 

H3,  FAC*:  RR  =  0:LPRINT  FM*<1> 

13132  IF  QQ*  =  *Y*  THEN  IF  BAT*  =  "R"  THEN  GOSUB  1590  ELSE  GOSUB  1650 

13133  IF  QQ*  =  *Y“  THEN  GOTO  120 

13135  IF  QQ*  =  "N"  THEN  CLS  :  END 

13140  RETURN 

««#*«*****«**###*#********«***#*«**«*#*##**««#****«**##******#*«******#*«**#**# 


*  * 

*  h^ME:  CONC  « 

*  FUNCTION:  SAVES  CONCENTRATIONS  FROM  THIS  SOURCE  * 

«  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


•a#***#***#***#***##*#*##*******#*******#**##***##*****#*****#****##**##*##**** 

14500  '  PRINT  D* ; ’OPEN  RECEPTOR  TOTAL, L80" 

14510  '  PRINT  D* ; ’WRITE  RECEPTOR , R" ; J1 

14520  '  FOR  A  =  1  TO  5:  PRINT  PC(A) :  NEXT  A 

14540  RETURN 

«**•*•***««******•*«**••***•«•«•*«*«*«»«*«***•****«***«***«*******««*««*«****** 


«  « 

*  NAME:  TOTAL  # 

*  FUNCTION:  SUMS  AND  SAVES  TOTAL  CONCENTRATIONS  « 

*  CALLED  FROM:  MAIN  —  miN  PROGRAM  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


a***#**##****###*#****#**#***#****##***#******#*#####*#***###***###***#***#**** 

14700  '  PRINT  :  PRINT  D*;*OPEN  RECEPTOR, D2,L170" 

14710  '  PRINT  D* ; "READ  RECEPTOR, R" ;J1 

14720  '  FOR  A  =  1  TO  5:  INPUT  TRCA) :  NEXT  A 

14740  '  FOR  A  =  1  TO  5:TR<A>  =  TR(A)  ♦  PC<A) :  NEXT  A 

14750  '  FOR  A  =  1  TO  5:X  =  TR<A> :  GOSUB  12100 :TR*<A)  =  E*:  NEXT  A 

14760  '  PRINT  D*; "OPEN  RECEPTOR , LI 70 " 

14770  '  PRINT  D*j "WRITE  RECEPTOR, R" ;J1 

14780  '  FOR  A  =  1  TO  5:  PRINT  TR*(A) :  NEXT  A 

14800  RETURN 


C20 


************************** a*#*******#****###*****####****#******##*## *»****##** 


*  « 

*  N*1E:  SETFILE  * 

*  FUNCTION:  SETS  INPUT  FILE  hWiES  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGR^l  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


*#***************»***#«*#*#**#****##*»#***##**##*#*****«********«*«****«*«***** 


15000  PI  *  PI  ♦  1 
15010  CLOSE  #3 

15020  ON  PI  GOTO  15030,  15050,  15070,  15090,  15110 
15030  FAC*  =  'TEMPLANP.TXT* 

15035  FACF*  =  "FACF1LEP.TXT* 

15040  RETURN 

15050  FAC*  =  "TEMPLAN1 .TXT* 

15055  FACF*  =  ’ FACF 1  LEI .TXT" 

15060  RETURN 

15070  FAC*  =  "TEMPLANK.TXT" 

15075  FACF*  =  "FACF 1LET.TXT* 

15080  RETURN 

15090  FAC*  =  ‘TEMPLANF .TXT* 

15095  FACF*  =  * FACF I LEF .TXT* 

15100  RETURN 
15110  GOTO  13120 


*JHHHHHt***»*******#*«*****««*«*«#*«**«**###»*«»*»*****»*#****«*****«*#«******** 


*  * 

*  NAME :  CASE  * 

*  FUNCTION:  CONVERT  ALL  LETTERS  TO  UPPER  CASE  * 

*  CALLED  FROM:  MAIN  --  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


a****************************************************************************** 


15200  FOR  A  =  1  TO  3 

15210  COWER  =  ASC<MID*<M*,  A,  1)> 

15220  IF  COWER  >  96  THEN  COWER  =  COWER  -  32 
15230  MI D*<M* ,  A,  1)  =  CHR*<COWER> 

15240  NEXT  A 
15250  RETURN 


«****«***»«**«***«««*»*«•***«*«•*»*•«•*«**•««•****•**•*««**«*«««*«•***»******** 


*  * 

*  NAME:  PLUME  RISE  * 

*  FUNCTION:  CALCULATE  PLUME  RISE  FOR  POINT  SOURCES  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  * 


«**•»*************««*«*****«*«****«*•««**««««*«***«**«•**«*••«***••**«•«««***«* 
15310  'PI  =  pi 

15320  'VS  =  Stack  flow  speed  <M/sec) 

15330  'D  =  Stack  diameter  (M) 

15340  ' g/P I  =  3.1213? 

15350  'TS  =  potenial  temp  slop 
15360  'TO  =  Ambient  temperature  (F) 

15370  'ZD  =  Effective  source  height  <M) 

15380  'H  =  Stack  or  release  height  (M) 

15390  'ZP  =  Plume  rise  <M> 

15400  'XD  =  Downwind  component  of  source-receptor  d i sp 1 acemen t , or i g i n  ai 
source  <M) 

15410  'D  =  Source-receptor  downwind  distsnce  (M) 

15420  'XF  =  downwind  plume  displacement  (M) 

15430  'C  =  Source-receptor  crosswind  distance(M) 

15440  'XC  =  Crosswind  component  of  source-receptor  d i sp 1 acemen t , or i g i n  at 
source  <M) 

1 5450  ' «*»*#******«««*#*****«#*««**#«****«**»*********«*«*«**#**«*«#«*#*** 

#*##* 

15460  G  *  3.12139:  TS  =  .035  *9/5 
15470  PI  =  3. 1428571# 

15480  'INPUT  ’STACK  DIAMETER  :’jSTACKDIA 

15490  'INPUT  ’STACK  HEIGHT  :’;STHGT 

15500  'INPUT  ’BUILDING  HEIGHT  : *  jBLDHGT 

15510  'INPUT  ’STACK  FLOW  SPEED  <M/sec>  :*;STACFL0U 

15520  'INPUT  ’STACK  TEMPERATURE  :’;STACTEMP 

15530  'INPUT  ’AMBIENT  TEMPERATURE  :’  ;TEMP 

15540  'INPUT  ’WIND  SPEED  (M/SEC)  :’;V 

15545  'INPUT  ’P/G  CLASS  (2-5)  :’;PG 

15550  STACKHGT  =  STACKHGT  ♦  BUILDHGT  ' STACKHGT=STACK  HEIGHT  BUILDHGT  = 
BUILDING  HEIGHT 

15560  WV  =  PI  /  4  *  STACFL0W  *  STACKDIA  A  2 

15570  F  =  G  *  WV  *  (STACTEMP  -  TEMP)  /  (TEMP  +  459.67):  IF  F  <  0  THEN  F  =  0 
15575  IF  PG  >  4  THEN  GOTO  15600 

15580  IF  F  <  55  THEN  XS  =  1 4  *  F  A  < 5  /  8)  ELSE  XS  =  34  *  F  A  <2  /  5) 

15590  ZP  =  1 .6  *  F  A  (1  /  3)  *  <3.5  *  XS)  A  <2  /  3)  *  1  /  V 

15592  XF  =  0 

15595  GOTO  15650 

15600  N  =  SQRC9.8  *  TS  *  1  /  (TEMP  ♦  459.67)) 

15610  XF  =  PI  *  V  /  N 

15620  Z1  =  2.6  *  <F  /  <WS  *  N  A  2>>  A  <1  /  3) 

15630  Z2  =  5!  *  <F  A  <1  /  4))  *  <N  A  2)  A  (-3  /  8) 

15640  ZP  *  Zl:  IF  ZP  >  Z2  THEN  ZP  =  Z2 

15650  H  *  H  ♦  ZP 
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15660  XO  =  STACKD1A  -  XS 
15670  XC  =  C 
15700  RETURN 

*##*•*#*#*»*»#*#*#****##****»****#«**«***************#**#**#*###*»**##**###****» 


*  * 

*  hWME :  CASE2  * 

*  FUNCTION:  CONVERT  LETTERS  V>  UPPER  CASE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


a#*#*#*###**#***##*#***#*#*#*#***#**#***#***##**##***###*****##**#*###****#**** 

16000  FOR  A=1  TO  3 

16010  CONVER  =  ASC<MID*<M*,A,1 )) 

16020  IF  CONVER  >  96  THEN  CONVER  =  CONVER  -  32 
16030  MID*<m*,A,l>  =  CHR*<CONVER> 

16040  NEXT  A 
16050  RETURN 

*««*#«*******»»*•*****•*••«•**«*****«*«*•***«**«•«***«««*«*********«**»*•**»**« 


*  * 

*  NfcViE:  CASE3  * 

*  FUNCTION:  CONVERT  LETTERS  TO  UPPER  CASE  * 

»  CALLED  FROM:  MAIN  —  MWA IN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


**•««**********«**»»»»»*«•**«*«•******««**«*««*«*»*******«**•****««*******»*»** 
16070  CONVER  =  ASC(BAT$) 

16080  IF  CONVER  >  96  THEN  CONVER  =  CONVER  -  32 
16090  BAT*  =  CHR*<  CONVER) 

16100  RETURN 

##**##******#*#•»##*****###*#*##»***##**##»*##*#*#***«*#********#*«**#«*#****#** 


*  * 

*  NAME :  END  WEATHER  * 

»  FUNCTION:  END  PROGRAM  WHEN  END  OF  WEATHER  FILE  IS  REACHED  * 

*  CALLED  FROM:  WEATHER  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


«**««***•«**•*»*«•«*«*•*««******»***#»«»»****•••««««*»******»***•**««*»«*«•«*** 

16500  PRINT  'END  OF  WEATHER  FILE " 

16510  END 


NAME 

TYPE 

A 

COUNTER 

A 

COUNTER 

A* 

STPJNG 

AC 

REAL 

Am 

STRING 

B* 

STRING 

C 

REAL 

C 

INTEGER 

Cl 

REAL 

C2 

REAL 

C3 

REAL 

C4 

REAL 

chr*15 

string 

CHR$27 

STRING 

CHR*81 

STRING 

Cl 

REAL 

CP 

REAL 

CS 

REAL 

CT 

REAL 

D 

INTEGER 

D 

REAL 

OX ( D 1 ) 

INTEGER 

D1 

REAL 

D2 

REAL 

D3 

REAL 

D3 

REAL 

-  C23  - 
VARIABLE  LIST 

DESCRIPTION 

COUNTS  OFF  PT*  IN  SUBSTRINGS  OF  8  CHARACTERS  EACH 
FS< a)  —  COUNTER  FOR  7  DAYS  OF  WEEK 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  2  (TABLE  LOOKUP) 

SLOPE  OF  PLUME  ENVELOPE 

REPLY  CHARACTER  ENTERED  BY  USER 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  Y  (TABLE  LOOKUP) 
CROSSWIND  CONCENTRATION  FACTOR 

ASSIGNMENT  OF  LEFT  2  CHARACTERS  OF  INPUTTED  YEAR  (CENTURY) 
CROSSWIND  COORDINATE  OF  LINE  ENDPOINT 
CROSSWIND  COORDINATE  OF  LINE  ENDPOINT 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
control  character  tor  prowriter  printer  (condensed  mode) 
CONTROL  CHARACTER  FOR  PROWRITER  PRINTER  LINE  LENGTH 
CONTROL  STRING  FOR  PROWRITER  PRINTER  LINE  LENGTH 
CROSSWIND  POINT  SPACING  INTERVAL  FOR  INTEGRATION 
CROSSWIND  POINT  DISPLACEMENT  FOR  INTEGRATION 
X  COLD  STARTS 

DOWNWIND  INTERCEPT  OF  PLUME  ENVELOPE  LINE 

ASSI GNMENT  OF  RIGHT  2  CHARACTERS  OF  INPUTTED  YEARdOO  YRS  > 

DOWNWIND  CONCENTRATION  FACTOR 

DX<  7)  TEMP  FACTOR  -  WEEKDAY  ( 30X  ACT  =  .3  »  JO) 

DOWNWIND  COORDINATE  OF  LINE  ENDPOINT 
DOWNWIND  COMPONENT  OF  LINE  ENDPOINT 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
DOWNWIND  DISTANCE  USED  TO  COMPUTE  SG 


NAME 

TYPE 

D4 

REAL 

DI 

REAL 

DP 

REAL 

DX 

REAL 

DY 

REAL 

DZ 

REAL 

F* 

STRING 

F(T,P) 

real 

FC 

INTEGER 

FM* 

STRING 

FM*(A) 

STRING 

G 

REAL 

H 

INTEGER 

H 

REAL 

HX.  <  H 1 ) 

INTEGER 

HI 

INTEGER 

HF 

INTEGER 

1 

COUNTER 

1 

COUNTER 

IN* 

string 

IN* 

STRING 

IX 

INTEGER 

J 

COUNTER 

J1 

COUNTER 

K 

INTEGER 
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VARIABLE  LIST 

DESCRIPTION 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
DOWNWIND  POINT  SPACING  INTERVAL  FOR  INTEGRATION 
DOWNWIND  POINT  LOCATION  FOR  INTEGRATION 
INTERPOLATION  ARGUMENT 

CHANGE  IN  SIGMA  Y  BETWEEN  INDICES  I  AND  HI 

CHANGE  IN  SIGMA  Z  BETWEEN  INDICES  I  WD  HI 

F*<6)  SUBSCRIPTED  VAR  —  READS  DAY  OF  WEEK  DATA  STRING 

F<5,5)  EMISSION  RATE  <5  TEMP,  5  POL  >—  TABLE  LOOKUP 

DAY  OF  MONTH  (CONVERTS  DAY  OF  WEEK  TO  ONE  OF  5  WEEKS  IN  h 

FM*(A)  STRINGS  USED  TO  SET  UP  REPORT  FORMAT  <12"A*  VALUES 

TEXT  STRING  FOR  PRINTED  OUTPUT  REPORT 

NORMALIZED  CONCENTRATION 

HOUR  OF  DAY  (REDUNDENT  WITH  HI) 

EFFECTIVE  SOURCE  HEIGHT 

H7.<  24 )  TEMP  FACTOR  -  HOUR  OF  DAY  (50X  ACT  =  . L  *  10) 

HOUR  OF  DAY 

HOURS  IN  YEAR  CONSTANT  — 8760 

Y/SIGMA  Y  RATIO  *  10  —  40  TABLE  LOOKUP  POINTS  <  4  SIGMA 
DISTANCE  INCREMENTAL  INDEX  FOR  P/G  TABLE  LOOKUP  <101  DIS 
8  CHARACTER  READ  OF  TEMPROAD  — IN*(A)  OR  IN*  <K)-K  4 A  SA 
INPUT  VARIED  LENGTH  STRINGS  OF  ROADFI LE--C/D ,XCLD , SI G ,TE 
TABLE  INDEX  FOR  INTERPOLATION 

P/G  CLASS  INCREMENTAL  INDEX  3  CLASSES  (TABLE  LOOKUP) 
COUNTER 

GENERAL  COUNTER 


NAME 

TYPE 

KF 

INTEGER 

KG 

INTEGER 

KH 

INTEGER 

KI 

INTEGER 

L 

REAL 

LI 

REAL 

L2 

REAL 

M 

INTEGER 

M* 

STRING 

M7.  ( M 1 ) 

INTEGER 

M! 

INTEGER 

ND(  1 ) 

REAL 

NP 

INTEGER 

P 

INTEGER 

P2 

REAL 

PC(I) 

REAL 

PG 

INTEGER 

PI 

REAL 

PS 

REAL 

OF 

REAL 

RR 

COUNTER 

S 

REAL 

SG 

REAL 

SR 

REAL 

T 

INTEGER 

-  C25  - 
VARIABLE  LIST 

DESCRIPTION 

Y  -  ENDPOINT  IN  SCREEN  COORDIKttTES  FOR  GRAPHICS 

X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

Y  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

LINE  SOURCE  LENGTH 

UNCLIPPED  LINE  SOURCE  LENGTH 
LENGTH  OF  CLIPPED  LINE  SOURCE 

ASSIGNED  INTEGER  VALUE  OF  STRING  MONTH  i .e . " j anuary * ( 1 i t 
USER  INPUT  MONTH  STRING 

M/.(  12)  TEMPORAL  FACTOR  -  MONTH  (40*/.  ACTIVITY  =.4  *  10) 
MONTH  — REDUNDENT  WITH  *M* 

ND< I )  GAUSSIAN  EXPONENTIAL  VALUE  (0-1)  TABLE  LOOKUP 
NUMBER  OF  POINTS  IN  LINE  INTEGRATION 
POLLUTANT  INDEX  IN  F(T,P> 

STABILITY  INDEX  FOR  TABLE  LOOKUP 
POLLUTANT  C  Of')  CENT  RAT  I  ON  FOR  SPECIES  I 
PASQUI LL/GIFFORD  STABILITY  CLASS 
PI  =  3.14159 
ROADSPEED  -M/S 

REDUCED  EMISSION  RATE  FOR  CLIPPED  LINE 
COUNTER  FOR  RECEPTORS 
SLOPE  OF  LINE  SEGMENT 

SI GMA  Y  VALUE  USED  TO  COMPUTE  POINT  SPACING 
RATIO  OF  INITIAL  SIGMA  TO  SIGMA  AT  RECEPTOR 
TEMPERATURE  INDEX  IN  F(P,T) 


-  C26  - 
VARIABLE  LIST 


NAME 

TYPE 

DESCRIPTION 

TE 

real 

TE<5)  -  TOTAL  EMISSIONS  -  SUM  OF  ‘O'  <5  POLLUTANTS) 

TEMP 

REAL 

USER  INPUT  TEMPERATURE 

TH 

REAL 

UIND  ANGLE  IN  RADI ENS 

T1NDX 

INTEGER 

TEMPERATURE  INDEX  PRIOR  TO  TEMP  INTERPOLATION 

UC 

REAL 

CORRECTED  UIND  SPEED 

VS 

REAL 

UIND  COMPONENT  ALONG  THE  ROAD 

W/<U1 ) 

INTEGER 

W/,(5)  temp  4 actor  -  monthweek  (30X  activity  =  .3  *  10) 

LH 

INTEGER 

UEEK 

US 

PEAL 

USER  INPUT  UIND  SPEED 

WS 

REAL 

UIND  SPEED 

X* 

STRING 

READ  IN  *x*  COORD  STRING  FOR  RECEPTOR  -  8  CHAR  LONG 

X2 

REAL 

■X*  COORDINATE  OF  OTHER  LINE  SOURCE  ENDPOINT 

XR 

REAL 

"X1  COORDINATE  OF  RECEPTOR 

Y* 

STRING 

READ  IN  -Y”  COORD  OF  RECEPTOR  RANDOM  ACCESS  8  CHAR  LONC 

YO 

REAL 

INITIAL  PLUME  SIGMA  Y 

Y 1 

REAL 

•Y"  COORDINATE  OF  ROAD  ENDPOINT 

Y2 

REAL 

•Y*  COORDINATE  OF  OTHER  ENDPOINT  OF  ROAD 

YR 

REAL 

■Y"  COORDINATE  OF  RECEPTOR 

YR* 

STRING 

USER  INPUT  OF  ’YEAR" 

YT 

REAL 

TABULATED  SIGMA  Y  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKUP 

ZO 

REAL 

INITIAL  PLUME  SIGMA  Z 

ZQ 

INTEGER 

BOOLEAN  CONTROL  (0  or  1)  IF  INPUT  ERROR  IN  DATE,  UEATHEI 

ZT 

REAL 

TABULATED  SIGMA  Z  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKU 
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#***#*##*###*#########*»#*#*##*»**#***«*«*»*«******#»:»*»***********#*#**«**# 

* 

*  LINE  SOURCE  DISPERSION  PROGRAM 

* 

a*##*#**#*##**##***##*******#**#*##*#******#***##*#**##*****#*###*####*****# 

10  DIM  F*<6),  IN*<84),  F< 5 ,  5),  MX(12) ,  W7.(5),  Fl(15>,  07.(7),  H7.<24) 

12  DIM  FM*<  25) ,  PC<5>.,  TR<5),  TR*<5) 

15  DIM  Q<5),  ND( 40 ) ,  TC<5,  5),  ZTC100,  3),  YT( 100 ,  3),  TE(5) ,  GM*<10) 

30  OPEN  *  I ' ,  HI,  * ROADFILE.TXT* 

40  OPEN  *1* ,  M3,  “TEMPROAD .TXT" 

50  HOURN  *  0 

60  INPUT  “SCREENING  -  'S'  OR  REFINED  -  'R'“;  BAT* 

70  GOSUB  15070:  IF  BAT*  <>  “S“  AND  BAT*  <>  *R"  THEN  60 
80  IF  BAT*  =  “S"  THEN  90  ELSE  OPEN  M5,  “WEATHER.DAT" 

90  WIDTH  “LPT1 :  “ ,  132 

91  LPRJNT  CHR*( 1 5) 

92  '  ON  ERROR  GOTO  13000 

93  TWR  =1:J1=0:VA=0: 

112  GOSUB  1470  '  ASSIGN  DAY  OF  WEEK  TO  F*  ARRAY 

115  GOSUB  2840  '  SET  UP  FOR  INTERP  OF  GAUSS  CURVE 

116  GOSUB  2960  '  READ  INTERPOLATION  TABLE  FOR  SIGMAS  FILE 

119  GOSUB  1590  '  INPUT  TIME  WD  WEATHER  INTERACTIVELY 

120  IF  HOURN  <  1  THEN  GOSUB  5100  '  SETUP  AN D  PRINT  REPORT 

122  GOSUB  3900  '  INPUT  RECEPTOR  LOCATION 

123  GOSUB  1190  '  2ELLERS  CONGRUENCE  LAW 

124  GOTO  1020  '  READ  SOURCE 

126  GOSUB  1800  '  CALCULATE  TEMPORAL  FACTORS 

127  GOSUB  1530  '  TEMPERATURE  INTERPOLATION 

128  GOSUB  2600  '  CALCULATE  DISPERSION 

129  GOTO  124  '  CONTINUE  ON  TO  NEXT  SOURCE 

130  END 

140  GOSUB  3900  '  INPUT  RECEPTOR  LOCATION 
145  GOTO  1020  '  READ  SOURCE 

150  END 
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****#«*«#*##*«*#*#***##*####*###**###»**#*t*##**##»****»#********«**«******** 

• 

*  N*IE:  FILEREAD 

*  FUNCTION:  READS  ROAD  COORDINATES  WD  TRAFFIC  INFORMATION 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM 

*  CALLS:  NO  ROUTINES 

* 

•*««***««•««*«*«****««•««****«•«**«*««**««***«***««««*««««««*««««**«**•*«*«*« 

1020  R  =  R  ♦  1 

1030  IF  EOF< 1 >  THEN  13000 

1040  RE  *  R  -  1 

1045  INPUT  43,  PT* 

1047  A  =  0:  FOR  X  =  1  TO  LENCPT*)  STEP  8:  A  *  A  ♦  1:  IN»(A)  =  MID»(PT$,  X,  8) 
:  NEXT  X 

1050  FOR  K  =  1  TO  25:  J  =  K:  P  =  1  ♦  INT((J  -  1 )  /  5) :  T  =  J  -  <P  -  1 )  «  5 
:  F<P,  T)  »  VAL(IN4(K>):  NEXT  K 
1060  FOR  A  *  16  TO  78:  INPUT  41,  1N»<A):  NEXT  A 
1065  HF  =  8760:  '  INPUT  HF 

1100  FOR  K  =  1  TO  7:  LET  D‘/.<K)  =  UAL<1N*(K  30)):  NEXT  K 

1110  FOR  K  =  1  TO  5:  LET  W/.<K)  »  UAL(1N*(K  ♦  37)):  NEXT  K 

1120  FOR  K  =  1  TO  12:  LET  MX<K)  *  VAL<1N*(K  ♦  42)):  NEXT  K 

1130  FOR  K  =  1  TO  24:  LET  KX.<K>  =  VAL<IN*<K  +  54)):  NEXT  K 

1142  X  =  FRE<0) 

1150  LET  H  =  VAL<1N*<30)> 

1155  X  =  ASC<IN*<17)>:  IF  X  =  26  THEN  13000 
1160  XI  =  VAL<1N*<17)) :  Y1  =  YAL< IN*( 1 8) > :  X2  = 

VAL<1N*<19)> :  Y2  =  VAL<IN*<20))  1165  PT  =  VAL< 1N*< 26) > :  CS 
=  UAL< IN*( 25) ) :  PS  =  UAL(IN*(24)) 

1170  LN  =  SOR<  <X1  -  X2)  A  2  ♦  (Y1  -  Y2)  A  2)  /  1609 

1176  INS <177  =  STRf(Xl):  IN*<1B)  *  STR*(Y1):  1NS( 19)  = 

STR*(X2) 

:  IN*<20)  =  STR*<Y2>:  IN*<25)  =  STR4CCS):  1N*<24>  = 

STR*(PS) 

1177  X  =  FRE<0) :  IF  L»Al<  1N*<24) )  =  0  THEN  PT  «  1609: 

IN$( 26)  *  ’QUEUE*:  PS  *  5  1178  GOTO  126 
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***«*««*«*«****•*«***««*•#*«***#******»*•**»»**»*«*******«****•••«•*»****••**«• 


•  * 

*  NAME:  DAY  * 

*  « 

*  USE:  USES  2ELLER' S  CONGRUENCE  LAW  70  DETERMINE  DAY  OF  WEEK  * 

*  FROM  DATE  # 

»  * 

«  CALLED  FROM:  HW1N  —  M4IN  PROGfc*!  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


it*#*)***********#***#*****##*********#*****#***##*#*#*##**#########**##***##**## 

1190  CLS 

1200  C  =  VAL<LEFT<<YR4 ,  2)):  D  =  VAL<RIGHT<<YR< ,  2)) 

1210  GOSUB  1337 

1220  Ml  =  1NT<M) :  W1  =  INT<FC  /  7)  4  1 :  HI  =  1NT<HR) 

1230  M  =  M  -  2:  IF  M  <  1  THEN  D  «  D  -  1:  M  *  M  ♦  12 
1240  IF  D  <  0  THEN  D  =  99  *  D:  C  =  C  -  1 

1250  X  =  < INT<2.6  «  M  -  .2  ♦  .00001)  4  FC  4  D  ♦  I NT ( D  /  4  4  .00003) 

4  INT< C  /  4  4  .00001  )  -  <2  *  C)) 

1260  Y  =  X  /  7 

1270  2  =  ABS<Y  -  1NT (Y  4  .00001))  '  DECIMAL  'A1NDER 
1280  DT  =  I NT < 7  *  2  4  .00001  )  '  INTEGER  'AINDER 
1290  DT  =  DT  4  l 
1330  RETURN 

a##***#**####*###**#*######****#*##****#*#**###*******************************-* 


#  * 

*  1W1E:  MONTH  * 

*  USE:  ASSIGNS  MONTH  INDEX  M  TOR  SUBROUTINE  DAY  * 

*  CALLED  FROM:  HWIN  * 

«  CALLES:  NO  OTHER  ROUTINES  « 

*  * 


•a**************************************************************************** 


1337  M  =  13 


1340 

IF 

LEFT<<M< , 

3) 

= 

“JAN" 

THEN 

M 

ss 

i 

1350 

IF 

LEFT<<M< , 

3) 

= 

'FEB* 

THEN 

M 

= 

2 

1360 

IF 

LEFT<<M< , 

3) 

= 

'MAR' 

THEN 

M 

3 

1370 

IF 

LEFT<<M$ , 

3) 

= 

"APR* 

THEN 

M 

4 

1380 

IF 

LEFT<<M< , 

3) 

= 

‘MAY* 

THEN 

M 

= 

5 

3  390 

IF 

LEFT<<M< , 

3) 

= 

‘JUN* 

THEN 

M 

= 

6 

1400 

IF 

LEFT<<M< , 

3) 

= 

■JUL* 

THEN 

M 

as 

7 

1410 

IF 

LEFT<<M< , 

3) 

- 

■AUG" 

THEN 

M 

= 

8 

1420 

IF 

LEFT<<M< , 

3) 

= 

•SEP* 

THEN 

M 

= 

9 

1430 

IF 

LEFT<<M< , 

3) 

= 

■OCT* 

THEN 

M 

= 

10 

1440 

IF 

LEFT<<M< , 

3) 

= 

*NOV" 

THEN 

M 

= 

11 

1450 

IF 

LEFT<<M< , 

3) 

= 

■DEC* 

THEN 

M 

= 

12 

1460  RETURN 
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#*****#*#***#**#»**##**#**#**#**»*#*#«**#****#«**#*###*###*##* ******* *###****! 
• 

«  NAME:  WEEK 

«  USE:  SETS  UP  TABLE  OF  N*1ES  OF  DAYS 

»  CALLED  FROM:  MAIN  —  WUN  PROGRAM 

»  CALLS:  NO  OTHER  ROUTINES 

» 

a##***#*****#*#*#***####****#****#**#*******************#***##***#*#*******#*, 
1470  FOR  A  =  0  TO  6:  READ  F*(A):  NEXT  A 

1480  DATA  ■SUNDAY' .'MONDAY’ , ’TUESDAY* , 'WEDNESDAY' /THURSDAY* , 'FRIDAY* 
/SATURDAY* 

1490  RETURN 

*****«**#***************«***«««***********#**********************»*******«***' 

* 

*  NAME:  EMISSIONS 

«  USE:  INTERPOLATES  ROAD  EMISSIONS  FOR  AMBIENT  TEMPERATURE 

*  CALLED  FROM:  f*UN  —  MAIN  PROGRttl 

*  CALLS:  NO  OTHER  ROUTINES 

* 

********************************** x a***************************************** 
1530  TINDX  =  INT<TEMP  /  25)  ♦  1:  IF  T1NDX  >  5  THEN  T1NDX  =  5 
1540  FOR  P  =  1  TO  5 

1550  Q<P)  =  <F< TINDX,  P)  *  <F(TINDX  +  1 ,  P)  -  F<T1NDX,  P>)  * 

(TEMP  /  25  -  1NT<TEMP  /  25)))  »  TF 
1560  NEXT  P 

1575  FOR  1  =  1  TO  5:  Q<I)  =  Q(l)  /  60 :  NEXT 

1576  FOR  A  «  1  TO  5:  TE<A)  =  TE(A>  ♦  0(A):  NEXT  A 
1580  RETURN 
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««**«•***«*•******•**»«**««**•*»*«****«•••*««*«•**«*«*««•***«»•**•»**»*•»«***• 

• 

*  NAME:  INPUT 

*  USE:  INPUT  OF  METEROLOGY  AND  DATE  FROM  KEYBOARD 

*  CALLED  FROM:  MAIN  --  MAIN  PROGRAM 

»  CALLS:  CONDITIONALLY  CALLS  THE  FILE  INPUT  VERSION  OF  THIS 

«  ROUTINE 

« 

*#**#*###***  it  ******************************************************* ********** 

1590  IF  BAT*  =  •R"  THEN  2000 

1592  CLS  :  LOCATE  3,  10:  INPUT  'YEAR  =  * ;  YR* 

:  IF  20  >  0  THEN  RETURN 

1593  LOCATE  5,  10:  INPUT  ‘MONTH  =  M*:  IF  ZQ  >  0  THEN  RETUR 

1594  GOSUB  1337 

1595  IF  M  =  13  THEN  1593:  '  CHECK  MONTH  IS  IN  BOUNDS 

1596  LOCATE  7,  10:  INPUT  ‘DAY  OF  MONTH  =  *;FC:  IF  ZQ  >  0  THEN  RETURN 

1600  DA  =  K 

1610  LOCATE  9,  10:  INPUT  ‘HOUR  OF  DAY  (l-24>  »  ‘ ;HR :  IF  ZQ  >  0  THEN  RETURN 

1620  LOCATE  11,  10:  INPUT  'TEMPERATURE  (DEG  F)  *  * ;TEMP 
1622  IF  TEMP  >  100  THEN  TEMP  *  100 

1624  IF  TEMP  <  0  THEN  TEMP  =  0 

1625  IF  ZQ  >  0  THEN  RETURN 

1630  LOCATE  13,  10:  INPUT  "WIND  SPEED  (M/S)  »  ‘;WS:V=WS:IF  US  <  1 

THEN  V  =  1 

1631  IF  ZQ  >  0  THEN  RETURN 

1635  LOCATE  15,  10:  INPUT  ‘WIND  DIRECTION  (DEG  N)  *  *  ;W 

1636  IF  ZQ  >  0  THEN  RETURN 

1640  LOCATE  17,  10:  INPUT  ‘P/G  CLASS  (2-5)  *  “  ;PG:  IF  ZQ  >  0  THEN  RETUF 

1650  CLS 
1660  ZQ  =  0 

1664  PRINT  '1 .YEAR  -  “ ;  YR* 

1665  PRINT  ‘2. MONTH  =  • ;  M* 

1670  PRINT  *3. DAY  OF  MONTH  =  " ;  FC 
1672  IF  HR  >  24  THEN  HR  =  24 
1675  PRINT  *4. HOUR  OF  DAY  =  *  ;  HR 
1680  PRINT  *5. TEMPERATURE  *  *;  TEMP 
1685  PRINT  *6. WIND  SPEED  =  ■ ;  WS 
1690  PRINT  ‘7. WIND  DIRECTION  =  ‘ ;  W 
1695  PRINT  *8 .PG  CLASS  =  “ ;  PG 

1699  X  =  FRE(O) 

1700  INPUT  'ARE  THESE  CORRECT  (Y  OR  N)‘;  AN* 

1701  IF  PG  <  3  THEN  PG  =  3 

1702  IF  PG  >  5  THEN  PG  =  5 

1703  IF  <)  *N*  THEN  RETURN 

1704  ZQ  =  ZQ  +  1 

1705  INPUT  "CHANGE  WHICH  VALUE*;  M 

1706  CLS 

1710  ON  m  GOSUB  1592,  1593,  1596,  1610,  1620,  1630,  1635,  1640 

1711  ZQ  =  0 
1720  GOTO  1650 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


*  * 

x  NAME :  DUTY  * 

x  USE:  CALCULATE  THE  CORRECT  TEMPORAL  FACTOR  • 

x  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

x  CALLS:  NO  OTHER  ROUTINES  * 

x  * 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1800  TF  =  <M7<M1)  x  10)  x  <W/.<W1)  x  10)  x  <D7.(DT)  x  10) 

1810  TF  =  TF  /  10000 

1820  TF  =  TF  x  H7(H1  +  1)  x  10 

1830  RETURN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X  X 

x  NAME:  WEATHER  x 
x  USE:  FILE  VERSION  OF  INPUT  ROUTINE  x 
x  CALLED  FROM:  INPUT—  SUBROUTINE  x 
x  CALLS:  NO  OTHER  ROUTINES  x 
x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2000  IF  EOF< 5)  THEN  16000 
2010  INPUT  #5,  ENP* 

2015  IF  ENP*=**  THEN  GOTO  2000 

2020  YR*  *  M1D$<ENP*,  1,  4):  YR  =  VAL<YR$) 

2030  m  =  M1D*<ENP*,  5,  3):  GOSUB  1337 
2040  FC  =  VAL<MID*(ENP$,  8,  2)) 

2050  HR  =  VAL<MID*<ENP*,  10,  2>) 

2060  TEMP  =  VAL(MID*(ENP$,  12,  3)) 

2070  US  =  <VAL<M1D*<ENP*,  15,  2))  x  .514668)  :V=WS:  IF  V<1 
THEN  V=1 

2080  W  =  VAL<M1D*<ENP*,  17,  3)) 

2090  PG  =  VAl<RIGHT*(ENP*,  1)) 

2110  IF  PG  <  2  THEN  PG  =  2 
2120  RETURN 
2130  CLOSE  #5 
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*«**«*««**»****«*«*«•#«••*««********•«**«*••**«•*««*****«•**********»****•***** 


•  « 

*  NAME:  DISPERSION  * 

*  USE:  CONTROL  LOOP  FOR  ALL  DISPERSION  CALCUCATIONS  » 

«  CALLED  FROM:  WtlN  —  MAIN  PROGRAM  * 

*  CALLS:  DRAW,  DUTY,  ROTATE,  LENGTH,  DELTA,  CONC,  PRINT,  CLIP  * 

«  * 


*»***«****«**x***«*«**«««****«***««****«***«****«««*«**«*********«««««««**«#«** 

2600  Cl  =  XI:  D1  =  Yl:  C2  =  /2:  D2  =  Y2 

2605  GOSUB  4500  '  DRAW  SOURCE 

2610  GOSUB  1800  '  FACTOR  ROUTINE 

2620  RX  =  XR:  RY  =  YR 

2705  GOSUB  3700  '  ROTATE/TRANSLATE 

2740  IF  PG  >  5  THEN  PG  =  5 

2750  IF  PG  <  2  THEN  PG  =  2 

2754  GOSUB  3340  '  DISTANCE  FINDER  ROUTINE 

2758  UC  =  1.85  *  <V  A  .164)  *  <S1N(ATN<S)>  A  2):  IF  UC  >  V  THEN  V  =  UC 

2759  VF  =  ABSCV  *  COS<ATN(S) ) ) :  20  =  3.57  -..53  *  VF:  IF  20  <  1.5  THEN 
20  =  1.5 

2760  YO  =  2  «  20 

2761  GOSUB  2768 

2763  GOSUB  3460  '  BREAK  INTO  POINTS 

2764  GOSUB  3550  '  GET  CONCENTRATION 

2765  GOSUB  12000  '  PRINT  RESULTS 

2766  RETURN 

»*********»********««♦*»* a*****##*********#******##**#****##***#**#*##****#**** 


#  « 

*  NAME:  CLIP  * 

x  USE:  CLIPS  LINE  SEGMENT  FOR  FASTER  COMPUTATION  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  ROUTINE  * 

*  CALLS:  LENGTH,  ENVELOPE,  PREPAIR,  SIGMA  » 

*  4 


******»***#**#******«***********»**********»************»****»****»*■»**#«*****< 

2768  IF  Cl  >  C2  THEN  DU  =  C2:  C2  *  Cl :  Cl  =  DU:  DU  =  D2:  D2  =  D1 :  D1  =  DU 

2772  GOSUB  3340  '  D3  STANCE  FINDER  CALCULATE  LI 

2773  L 1  =  L 

2774  GOSUB  3760:  7  GET  PLUME  ENVELOPE 

2778  IF  Yl  >0  FND  XI  >  Cl  AND  XI  <  C2  THEN  Cl  =  XI :  D1  =  Yl 
2782  IF  X2  >  Cl  AND  X2  <  C2  AND  Y2  >  0  THEN  C2  =  X2:  D2  =  Y2 

2786  GOSUB  3340  '  DISTANCE  FINDER  CALCULATE  L2 

2787  L2  =  L 

2788  QF  =  L2  /  LI 

2792  IF  QF  =  0  THEN  DS  =  -2:  GOTO  2810 
2800  GOSUB  3390:  X  =  DS 
2805  GOSUB  3050:  So  =  SY 
2810  RETURN 
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a*#*#*****##**#*############ ###«#######*»*###*##«**#***#*****#«*«*« ***«#*##*#»* 


»  * 

*  NAME:  GAUSSTABLE  * 

«  USE:  CALCULATE  THE  GAUSSIAN  PLUME  TABLE  * 

«  CALLED  FROM:  FWIN  —  MW^IN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  » 

*  * 


♦♦S####**##*#*################*#**###*#*##***##*###*####*####*##**#*#*#####**#* 

2840  FOR  I  =  0  TO  40 

2850  ND<  I )  =  EXP<-.005  #1*1) 

2860  NEXT  1 
2870  RETURN 

a##*****************#*#*#***########*####*#*#####**##*##############*######*##* 

#  i 

#  NAME:  NORMAL  * 

#  USE:  CALCULATE  THE  NORMAL  DIST  CURVE  * 

#  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  < 

»  CALLS:  NO  OTHER  ROUTINES  < 

#  : 
********»*****##**«######**#«#####*###########*##*******««****#*#*#**#***#*#**< 

2890  IF  ABS<X)  >  4  THEN  FX  =  0 :  GOTO  2950 
2900  X  *  ABS(X)  *  10 
2910  IX  =  I NT <X) 

2920  DX  =  <X  -  IX) 

2930  FA  =  ND< IX)  -  ND(IX  +  1) 

2940  FX  =  ND(IX)-  FA  «  DX 
2950  RETURN 

a#*#*#*#*######*##*#*******#*#***#*##*#####**#**#**###*###*##*##**##**#####*## 

* 

*  NAME :  SI GMATABLE 

*  USE:  READS  IN  SIGMA  TABLE  INFORMATION  FROM  FILE 

*  CALLED  FROM:  MAIN  —  NAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

a*##*****##*#****#*******##**####**#*****##**********####**##*****#*######*##* 

2960  OPEN  "NEWSI GMA'  FOR  INPUT  AS  #6 

2980  FOR  J  =  0  TO  2 

2990  FOR  I  =  0  TO  100 

3000  INPUT  #6,  A$,  B$ :  ZT(I,  J)  =  VALCAf ) :  YT(I,  J)  =  VAL<B*) 

3010  NEXT  I 
3020  NEXT  J 
3030  CLOSE  #6 
3040  RETURN 
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###****#*##**###***#**#*#**#**»#****#******#»**#********#*#»#*#*****#*»#*#*#*## 


*  * 

«  NAME:  SIGMA  * 

*  USE:  INTERPOLATION  FOR  SIGMAS  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


##*«*#**#**r::***********#**#*#*«**#*#*###*##*#**#**** :##***««»**#«*»********* 

3050  IF  X  >  9999  THEN  X  =  9999 
3060  X  =  ABS(X) 

3070  P2  =  PG  — 3 : 1 F  P2<0  THEN  P2=0 
3080  IX  =  1NT(X  *  .01) 

3090  DX  =  X  *  .01  -  IX 

3100  D2  =  2T < IX  +  1,  P2)  -  ZT(IX,  P2> 

3110  DY  =  VT< IX  ♦  1,  P2)  -  YT( IX ,  P2> 

3120  SZ  =  ZT< IX ,  P2)  +  DZ  *  DX:  IF  SZ  >  5  »  20  THEN  SR  =  ZO  /  SZ 
:  SZ  =  SZ  *  <1  ♦  SR  *  SR  *  .5) :  GOTO  3L30 
3125  SZ  =  SQR(S2  *  SZ  ♦  ZO  *  20) 

3130  SY  —  YT< IX ,  P2)  +  DY  *  DX:  IF  SY  >  5  *  YO  THEN  SR  =  YO  /  SY 
:  SY  =  SY  *  <1  +  .5  *  SR  *  SR):  GOTO  3140 
3135  SY  =  SQRCSY  *  SY  ♦  YO  *  YO) 

3140  RETURN 

a*****#***#*******#****#**#**********#**#*******###*****#**###*****#**#####**** 


*  * 

*  NAME:  LENGTH  * 

*  USE:  CALCULATE  LENGTH  FROM  COORDINATES  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUR1NE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


##****####*#*****#**#**#*****»#«##*»***********•**##*#*#**#««***«*«*****««***»* 

3340  DX  =  C2  -  Cl:  IF  DX  =  0  THEN  DX  =  .000001 
3350  DY  =  D2  -  Dl:  IF  DY  =  0  THEN  DY  =  .000001 
3360  S  =  DY  /  DX 
3370  L  =  SQR'IDX  *  DX  ♦  DY  *  DY) 

3380  RETURN 


i _ _ a. 
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•it***************************************************************************** 


#  * 

*  NAME :  PREPAIR  * 

«  USE:  CLIP  AND  SCREEN  LINE  SOURCE  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROURINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


••«****«***•***«**•««***•*«****«****••••«******«•**********«*****«**«********** 
3390  D3  =  D1  +  <RX  -  Cl)  *  S 

3400  IF  D1  <  RY  AND  D2  <  RY  THEN  DS  =  -2:  GOTO  3440 
3410  IF  RX  >=  Cl  AND  RX  <=  C2  THEN  DS  =  D3  -  RY:  GOTO  3440 

3420  IF  ABS( RX  -Cl)  <=  ABS<RX  -  C2>  AND  D1  >=  RY  THEN  DS  =  D1  -  RY:  GOTO  3440 

3430  DS  =  D2  -  RY 

3440  IF  Cl  >  C2  THEN  DS  =  -2 

3450  RETURN 

******************************************************************************* 


*  * 

«  NAME :  DELTA  * 

*  USE:  BREAK  LINE  INTO  POINT  * 

*  CALLED  FROM:  DISPERSION  --  DISPERSION  SUBROURINE  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


♦a##*###**#********##******##**#*#*****#****##********#***********##*********** 
3460  NF  =  ABSCC2  -  Cl) 

3470  IF  NP  <  ABS(D2  -  Dl)  THEN  NP  =  ABSCD2  -  Dl) 

3480  IF  SG  =  0  THEN  NP  =  1 :  GOTO  3520 
3490  NP  =  INT(NP  /  SG  +  .5)  *  2 
3500  IF  NP  <  10  THEN  NP  =  10 
3510  IF  NP  >  200  THEN  NP  =  200 
3520  Cl  =  (C2  -  Cl)  /  NP 
3530  Dl  =  <D2  -  Dl)  /  NP 
3540  RETURN 


«***«««*****«***«*»«•**««*•****•#***•******«**#*«#«***«#**««*****«**•«**«* 

* 

*  NAME :  CONC 

*  USE:  CALCULATE  CONCENTRATION 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROURINE 

«  CALLS:  NO  OTHER  ROUTINES 

* 

#**g****«******************x*******;.******«********«****«***«**«***«****** 
3550  G  =  0 

3570  CP  =  Cl  -  .5  *  Cl  -  RX 

3580  DP  =  Dl  -  .5  #  Dl  -  RY 

3590  FOR  1  =  1  TO  NP 

3«500  CP  =  CP  *  Cl 

3610  DP  =  DP  ♦  DI 

3615  IF  DP  <  0  THEN  GOTO  3660 

3620  X  =  DP:  GOSUB  3050 

3630  X  =  H  /  SZ:  GOSUB  2880:  D  =  FX 

3640  X  =  CP  /  SY:  GOSUB  2880:  C  =  FX 

3650  G=D*C/SY/SZ  +  G 

3660  NEXT  I 

3670  G  =  G  *  OF  /  3.14159  /  NP 
3680  RETURN 

****************«*»*****»****«*****»**»**i,************#**#*«#»##*«*«*#*#** 

# 

*  NAME :  ROTATE 

*  USE:  CALCULATE  AND  ROTATE  COORDINATES  SO  WIND  IS  OUT  OF  NO 

*  CALLED  FROM:  DISPERSION  --  DISPERSION  SUBROURINE 

x  CALLS:  NO  OTHER  ROUTINES 

* 

****#************)HHHS***#*****«»*#«****#*#***##*#*#**##**##*##***#***####* 


3700  TH  =  3.14159  /  180  »  <-U>:  CO  =  COS(TH) :  SI  =  SIN(TH) 

3710  C3  =  Cl  *  CO  ♦  Dl  *  SI :  Dl  =  Dl  *  CO  -  Cl  *  SI :  Cl  =  C3 

3720  C4  =  C2  *  CO  +  D2  «  SI :  D2  =  D2  *  CO  -  C2  *  SI :  C2  =  C4 

3730  C4  =  RX  *  CO  ♦  RY  *  SI :  RY  =  RY  *  CO  -  RX  *  SI  :  RX  =  C4 

3740  Cl  =  Cl  -  RX:  C2  =  C2  -  RX :  Dl  =  Dl  -  RY:  D2  =  D2  -  RY:  RX  =  0 :  RY  = 
3750  RETURN 


-  C38  - 

*«*•***************«********«*«*«****•*•*•******•*«*#************«*«*«#«*( 

* 

*  f**!E:  ENVELOPE 

*  USE:  GET  PLUME  ENVELOPE 

*  CALLED  FROM :  DISPERSION  --  DISPERSION  SUBROUTINE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

****»*******************«****#***#«**#***#******#**«**#**)HHHHHHHHHHf*#**#i 


3760  AC  =  .5 

3770  IF  PG  =  4  THEN  AC  =  .75 

3780  IF  PG  =  5  THEN  AC  =  1 ! 

3790  CT  =  D1  -  S  *  Cl 

3800  IF  AC  =  -S  THEN  XI  =  Cl :  Y1  =  D1 :  GOTO  3820 
383 0  XI  =  -CT  /  < AC  ♦  S) :  Y1  =  -AC  *  XI 

3811  IF  XI  >  0  OR  Y1  <  0  OR  XI  <  Cl  THEN  XI  =  Cl:  Y1  ■  Dl:  GOTO  3820 

3812  XI  =  XI  -  4  *  YO:  Y1  =  Y1  -  4  *  YO  *  S 

3820  IF  S  =  AC  THEN  X2  =  C2:  Y2  =  D2:  GOTO  3840 

3830  X2  =  CT  /  <AC  -  S);  Y2  =  AC  *  X2 

3831  IF  X2  <  0  OR  Y2  <  0  OR  Y2  >  C2  THEN  X2  =  C2:  Y2  =  D2:  GOTO  3840 

3832  X2  =  X2  +  4  *  YO :  Y2  =  Y2  ♦  4  *  YO  *  S 

3840  RETURN 


•*«*•**•**•«*****************«***«****«*«*«**««**•*«**«**«•«******««*«««*. 

* 

*  NAME:  RECEPTOR 

*  USE:  INPUT  RECEPTOR  FROM  FILE 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

a**##*#*###****#**##*##**#**#*#**#**#*#*##*#***#**#*###****####*#**##*### 
3900  RR  =  RR  ♦  1 

3905  OPEN  "RECP.TXT"  AS  *2  LEN  =  16 

3906  FIELD  2,8  AS  X*,  8  AS  Y * 

3910  GET  #2  ,RR 

3920  XR=  VAL (X$ )  :  YR=  VAL(Y«) 

3930  CLOSE  #2 
3940  RETURN 


-  C39  - 

***«***«****•*«*»•******«*•**•«•»***««••*«*«*«««**«***»**«***•***********• 

* 

*  NAME:  DRAW 

*  USE:  DISPLAY  SOURCE 

«  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROURINE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

if**##***#*******#*#****#***#*#***#*#****#*******##********************#**# 


4510 

LET  KF  = 

:  Cl  *  SM  +  XO 

4520 

LET  KG  = 

:  -D1  «  SM  ♦ 

YO 

4530 

IF  KF  < 

0  THEN  KF  = 

0 

4540 

IF  KF  > 

279  THEN  KF 

=  279 

4550 

IF  KG  < 

0  THEN  KG  = 

0 

4560 

IF  KG  > 

159  THEN  KG 

=  159 

4570 

LET  KH  = 

C2  *  SM  ♦  XO 

4580 

LET  K3  = 

-D2  *  SM  + 

YO 

4590 

IF  KH  < 

0  THEN  KH  = 

0 

4600 

IF  KH  ) 

279  THEN  KH 

=  279 

4610 

IF  K I  < 

0  THEN  KI  = 

0 

4620 

IF  KI  > 

159  THEN  KI 

=  159 

4650 

RETURN 

-  C40  - 

a**#********##**###***#***#****##*#*#***#*****#**#*****#*****#******#**** 

* 

*  NAME  s  E  REPORT 

»  USE:  PRINT  EMISSION  REPORT 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

« 

#»*#**#**#****##****#»**********#************************«#***##*«******* 


5100  X  =  FRE<0 ) 

5110  LPRINT  CHR$( 27) ;  CHR*(81> 

5150  FM$(1)  =  ■!##***#****#***##*#**#»***##***#****#***#**#**#**- 

**«*##******##*###**«***###’(*#*#*###**#»*#*#*****#*»***#*#****#*- 
*##*###«#*#*- ! 11 

5155  FM*(2)  =  " !  EMISSION 

REPORT  (ROADWAYS) 


5160  FM*(5)  = 


INPUTS 


OUTPUTS 


5165  FM$ ( 4 )  =  FM*(  1 ) 

5170  FM*(3)  =  ' ! 

+  LEFT$(M$ ,  3)  ♦  ♦  RIGHT*(*  ' 

♦  *<■  ♦  LEFT*(STRi(HR) ,  3)  ♦  ’OO1 
5180  FM*(3>  =  FM*(3)  +  “  HR.) 


♦  STR*(FC>,  2)  + 


+  RI GHT$< YRf ,  2) 


5185  FM$ ( 6 ) 
5200  FM* <  7 ) 
(MOBILE  3) 
5210  FMt ( 8 ) 


FM*( 1 ) 

■1  COORDINATES  OF  SOURCES  (M)  ! 


ORIGIN  AT  (0  ,  0) 


INITIAL 
EMISSION  RATES 
1  PARAMETERS(M) 


5215  FM*<9)  =  FM$( 1 ) 
5220  FMi (10)  =  ' IROAD 
1XCOLD ! TEMP ! YEAR 
5230  FM* (1 1 )  =  ■ !  » 

1  ! START!  <  F) ! 


XI 

CO 


Y 1 


X2 

HC 


Y2 


!  SIG  !  SI G  ! PLUME! CARS/ IMP! 
GM/SEC 

!  Z  !  Y  !  HT.  !  HR 
NOX  !  SOX  !  PAR' 


5250  FM$(12;  =  "!***»**#***#***«**»*«»******»!***#*#*#«****##*-!*«****- 

*****«*«**•*»****«;***********»**•»*»•»*»•»**«****««***«*•***•»**«*«*•** 

5260  FOR  A  =  1  TO  12:  LPRINT  FM$(A):  NEXT  A 

5350  FOR  A  =  3  TO  13:  FM*(A)  =  NEXT  A 

5352  X  =  FRE(O) 

5355  RETURN 
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♦a************************************************************************* 

* 

*  hWIE:  REPORT 

*  USE:  PRINT  DISPERSION  REPORT 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

«***««**««***«**•**«««*«***********««****«*«*«•*»•*••«***•*•*****•**•«****« 
5420  X  =  FRE(O) 

5425  FM*<9>  =  R1GHT*<"  ■  ♦  STR*(R),  4) 

5430  FM* (10)  =  R1GHT*<*  1  ♦  1N*<17>,  5) 

5440  FMf < 1 1 )  =  ■,*  4  RIGHT$( *  *  4  IN*<18),  5) 

5450  FM$  (12)  =  RIGHTX  *  *  4  IN$(19),  5)  4  *,■ 

5460  FM $ (13)  =  RIGHT*<*  *  4  1N$<20),  5) 

5470  FMS<14)  =  LEFT$(STR*< 20 )  4  -  * ,  5) 

5480  FMf ( 1 5)  =  LEFT*(STR*(Y0)  4  ■  ■ ,  5) 

5490  FM* (16)  =  LEFTf< IN$<  30 )  ♦  "  ",  5) 

5499  IF  YAL(1N*<26))  =  0  THEN  5505 

5500  FM$ < 1 7 )  =  RIGHT*( ”  "  4  STR*< INTCTF  «  PT  4  .5)),  5) 

5504  GOTO  5510 

5505  FMJC17)  =  "QUEUE” 

5510  FM* < 1 8 )  =  RIGHT ♦<"  "  4  STR*(VAL( IN*(24) ) ) ,  3) 

5520  FM I (19)  =  RI GHT$( "  "  4  IN$(25),  5) 

5530  FM*(20)  =  R1 GHT$( "  "  4  ST R* (TEMP) ,  4) 

5540  FM$ (21)  =  RIGHTK"  '  4  YR* ,  4) 

5700  LPRINT  "I";  FM*<9);  ":*j  FM$ (10);  FM$(11);  "I";  FM*(12);  FM*(13); 

"I";  FM* (14);  "I”;  FM*(15):  " 1 " ;  FM*(16);  "!"}  FM*(17);  " 1 " ;  FM*<18>; 
"I";  FMf (19);  FM»(20);  "I";  FM*(21);  "I"; 

5710  FOR  A  =  1  TO  5:  LPRINT  USING  "##.##AAAA  " j  Q(A) ;  :  LPRINT  " I "  ; 

:  NEXT  A:  LPRINT 
5720  X  =  FRE ( 0 ) 

5730  RETURN 


# 

*  NAME:  PRINT 

*  USE:  PRINT  CONCENTRATIONS  ON  THE  SCREEN 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUR1NE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

*»«#***#******•***»**»****•»*******•«•««**««*********»***•«*•••***»»**•**•« 

12020  FOR  1  =  1  TO  5:  PC(I)  =  PC ( I )  4  G  *  Q( 1 )  /  V :  PRINT  USING 
"##.##AAAA  " ;  PC( I ) ;  :  NEXT  I 

12030  IF  TWR  <=  1  AND  HOURN  =  0  THEN  GOSUB  5420 
12040  PRINT 
12050  RETURN 
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I***************#**#*********#*#****#****************************************#*' 


* 

*  NAME: 

«  USE: 

»  CALLED  FROM: 

* 

*  CALLS: 

« 


D-REPORT 

PRINT  DISPERSION  REPORT 
DISPERSION  —  DISPERSION  SUBROURINE 
AND  MAIN  —  MAIN  PROGRAM 
NO  OTHER  ROUTINES 


•»*S*«*tt**««««»**«*********»«*«ftX********«***«**«ft«*«*****ft*«*****«****«***«** 


13000  X  =  FRE<0) 

13001  IF  HOURN  >=  1  THEN  13023 

13002  HOURN  =  HOURN  +  1 

13003  IF  TWR  >  1  THEN  13023 

13004  TWR  =  TWR  +  1 

13007  LPRINT  FM**1) 

1 3008  LPRINT  * 

TOTAL  *;  *:*;  :  FOR  A  =  1  TO  5:  LPRINT  USING  •; 

TE<A) ;  :LPRINT* ! "  ; :  NEXT  A.-LPR1NT 

13010  FM* * 2 )  =  *!  INPUTS  !  i 

OUTPUT  !  ' 

13011  FM* ( 3 )  =  "I  DISPERSION  REPORT 

i  n 

i 

13016  FM**1)  =  1  I **«*******«**********************»*****************♦****- 
#**********«»*************************«*-'," 

13017  gm$<5>  =  •:  :  :  !  :  ;  no.  ;  x  i  y  :  :  co 

i  hc  :  nox  :  sox  :  part  i ■ 

13018  GM*<1)  =  *1  DATE  :HR  IW/SIWD  .* P/G .*  RECEPTOR  I  ! 

CONCENTRATION  GM/M" 3  I " 

13019  gm* * 2 )  =  •:  :  !m/s:deg:a=i :  :  : 

i  ■ 

i 

13020  LPRINT  FM*(1):  LPRINT  FM*(3>:  LPRINT  FM**1):  LPRINT  FM**2) 

:  LPRINT  FM*(1):  L PR 3 ITT  GM**1> 

13022  LPRINT  GM**2):  LPRINT  FM**1>:  LPRINT  GM*<5> 

13023  GM**3)  =  *:■  +  LEFT*(M»,  3)  ♦  ■-*  ♦  RIGHT**  *  1  +  STR*(FC),  2) 

♦  *-"  +  RIGHT*<YR*,  2)  +  * ! "  ♦  LEFT** ST R** HR) 4 "  ■,  3)  +  1 ! "  + 

Ml D*<  STR*<US) ♦ *  *,2,3)  ♦  *!*  ♦  RIGHT** *  *  4  STR*(W) ,  3) 

13024  GM**4)  =  *1*  4  RIGHT**"  *  4  STR**PG),  3)  +  *!’ 

13035  J2*  =  RIGHT***  *  4  STR**RR)  4  *  • ,  6) 

13037  YR  =  INT < YR) :  XR  =  INT(XR) 

13040  AD*  =  RIGHT**"  *  4  STR*(XR) ,  5):  AE*  =  RIGHT***  *  4  STR**YR) ,  5 
13045  LOCATE  1,  1 

13050  GM**6)  =  J2*  4  ■;»  4  AD*  4  4  AE*  4  4  ■  ■  4  ■ 

13065  LPRINT  GM**3);  GM*<4);  GM*(6);  :  FOR  I  =  1  TO  5:  LPRINT  USING 

***. ««****■ ;  PC*I>i  :  LPRINT  *!*;  :  NEXT  I:  LPRINT 
13071  X  =  FRE(O) 

13074  '  GOSUB  14700 

13075  FOR  A  =  1  TO  5:  PC(A)  =  0:  NEXT  A 
13100  CLS 

13105  OPEN  *RECP.TXT”  AS  #2  LEN  =  16 

13106  FIELD  2,  8  AS  X*,  8  AS  Y* 

13107  GET  *2,  RR  4  \ 

13108  X  =  UAL(X*):  Y  =  VAL*Y*) 


C43 


13109  IF  X  =  0  AND  Y  =  0  THEN  13120 

13110  IF  EOF C 2)  THEN  GOTO  13120  ELSE  CLOSE  *11:  CLOSE  **2:  CLOSE  *»3 

:  OPEN  ■ 1  * ,  HI,  ‘RQADFILE.TXT* :  OPEN  **3,  •TEMPROAD.TXT’ :  GOTO  140 

13120  CLOSE  #2 

13121  IF  BAT*  =  *P  THEN  INPUT  *  INPUT  ANOTHER  HOUR  QD*:  ELSE  QQ*  =  *y 

13125  IF  QQ*  <>  *Y*  **ID  QQ*  <>  'N*  THEN  13121 

13130  IF  QO*  =  *Y*  THEN  CLS  :  CLOSE  HI:  CLOSE  H2:  CLOSE  H3 

:  OPEN  "I",  HI,  * R0ADF1LE.TXT" :  OPEN  *1*,  H3,  " TEMPROAD.TXT" 

:  TWR  =  1 :  J 1  =  0 :  R  =  0 :  RR  =  0 

13132  U  QQ*  =  *Y’  THEN  IF  BAT*  =  *B'  THEN  GOSUB  1590  ELSE  GOSUB  1650 

13133  IF  QQ*  =  “Y*  THEN  GOTO  120 

13135  IF  QQ*  =  *N“  THEN  CLS  :  END 

13155  FOR  A  =  1  TO  5:  TE(A)  =  0:  NEXT  A 

13160  CLS  :  GOTO  140 

**************************************************************************** 

* 

*  NAME:  OUTFILE 

*  USE:  PRINT  DISPERSION  RESULTS  TO  A  HOLD  FILE 

*  CALLED  FROM:  D-REPORT  —  SUBROUTINE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

**************************************************************************** 

14700  '  OPEN  "A:RECEPTOR’  AS  H4  LEN  =  170 

14720  -  FOR  A  =  1  TO  5:  INPUTH4  ,TR(A> :  NEXT  A 

14740  •  FOR  A  =  1  TO  5:  TR(A>  =  TR(A)  ♦  PC(A) :  NEXT  A 

14770  '  FOR  A  =  1  TO  5:  PRINT  USING  H4 , " HH . H*T A * A * ;  TRCA) ; :  NEXT  A 

14780  '  X  =  FRE  <0> 

14790  '  CLOSE  »4 
14810  RETURN 


*«*****#***«***«***#**#****##*»*#*******»*******«iHHHHHHHHHHHHHHHHHHHHHHHHHHI 

* 

*  NAME:  CASE 

*  USE:  PRINT  DISPERSION  RESULTS  TO  A  HOLD  FILE 

*  CALLED  FROM:  RWIN  —  MAIN  PROGRAM  AND  INPUT 

*  CALLS:  NO  OTHER  ROUTINES 

* 

#*****«*#****#*#*#*****##***#**»##***»#*******#*************************«** 

15000  FOR  A  =  1  TO  3 

15010  CONNER  =  ASC>,'MID*<M*,  A,  1>) 

15020  IF  CONNER  >  96  THEN  CONVER  =  CQNVER  -  32 
15030  M 1 0* < M*  ,  A,  1)  =  CHR*< CONNER) 

15040  NEXT  A 
15050  RETURN 

15070  CONNER  =  ASC< BAT*) 

15030  IF  CONNER  )  96  THEN  CONVER  =  CONNER  -  32 
15090  BAT*  =  CHR*<CONVER) 

15100  RETURN 


-  CAA  - 

*#*#**«**«*##*****#*******#***####*#*##*#***#**##*#*********#****#»*»******»HH 

* 

*  NAME:  END  WEATHER 

*  USE:  END  PROGRAM  WHEN  END  OF  WEATHER  FILE  IS  REACHED 

»  CALLED  FROM:  WEATHER  —  SUBROUTINE 

*  CALLS:  NO  OTHER  ROUTINES 

* 

««*****«**#*«#**«#***«************#*****###***#*«***##»#**#*##*#*##*»**»»**«*< 

1  <6000  PRINT'END  OF  WEATHER  FILE...* 

16010  END 


NAME 

TYPE 

A 

COUNTER 

A 

COUNTER 

A* 

STRING 

AN* 

STRING 

B* 

STRING 

C 

REAL 

C 

INTEGER 

C4 

REAL 

CD<  I ) 

REAL 

chr*l 5 

str i ng 

CHR*27 

STRING 

CHR*81 

STRING 

CS 

REAL 

D 

INTEGER 

D 

REAL 

D7  ( D 1 ) 

INTEGER 

D4 

REAL 

DX 

REAL 

DY 

REAL 

DZ 

REAL 

F* 

STRING 

F(T,P) 

real 

FC 

INTEGER 

FM* 

STRING 

-  C45  - 
VARIABLE  LIST 

DESCRIPTION 

COUNTS  OFF  PT*  IN  SUBSTRINGS  OF  8  CHARACTERS  EACH 
FS(a)  —  COUNTER  FOR  7  DAYS  OF  WEEK 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  2  (TABLE  LOOKUP) 
REPLY  CHARACTER  ENTERED  BY  USER 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  Y  (TABLE  LOOKUP) 
CROSSWIND  CONCENTRATION  FACTOR 

ASS1  GWENT  OF  LEFT  2  CHARACTERS  OF  INPUTTED  YEAR  (CENTURY) 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
AREA  UNDER  GAUSS  CURVE  BETWEEN  0  FMD  1/10  (1  =  0  -  40) 
control  character  -for  prowriter  printer  (condensed  mode) 
CONTROL  CHARACTER  FOR  PROWRITER  PRINTER  LINE  LENGTH 
CONTROL  STRING  FOR  PROWRITER  PRINTER  LINE  LENGTH 
X  COLD  STARTS 

ASSIGWENT  OF  RIGHT  2  CHARACTERS  OF  INPUTTED  YEAROOO  YRS) 
DOWNWIND  CONCENTRATION  FACT DR 

D7.<7)  TEMP  FACTOR  -  WEEKDAY  (307  ACT  =  .3  *  10) 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 
INTERPOLATION  ARGUMENT 

CHANGE  IN  SIGhW  Y  BETWEEN  INDICES  1  AND  1  +  1 

CHANGE  IN  SIGhW  Z  BETWEEN  INDICES  I  AND  1*1 

F%(6)  SUBSCRIPTED  VAR  —  READS  DAY  OF  WEEK  DATA  STRING 

F< 5 , 5)  EMISSION  RATE  (5  TEMP,  5  POL  )—  TABLE  LOOKUP 

DAY  OF  MONTH  (CONCERTS  DAY  OF  WEEK  TO  ONE  OF  5  WEEKS  IN  MO 

FM*(A)  STRINGS  USED  TO  SET  UP  REPORT  FORMAT  (12*A'  VALUES) 


-  C46  - 
VARIABLE  LIST 

NAME  TYPE  DESCRIPTION 

FM*(A)  STRING  TEXT  STRING  FOR  PRINTED  OUTPUT  REPORT 

G  REAL  NORMALIZED  CONCENTRATION 

H  INTEGER  HOUR  OF  DAY  (REDUNDENT  WITH  HI) 

H  REAL  EFFECTIVE  SOURCE  HEIGHT 

HX(H1)  INTEGER  HX(24)  TEMP  FACTOR  -  HOUR  OF  DAY  (50X  ACT  *  .5  *  10) 

HI  INTEGER  HOUR  OF  DAY 

HF  INTEGER  HOURS  IN  YEAR  CONSTANT-8760 

I  COUNTER  Y/SI GMA  Y  RATIO  *  10  —  40  TABLE  LOOKUP  POINTS  (  4  SIGMA) 

1  COUNTER  DISTANCE  INCREMENTAL  INDEX  FOR  P/G  TABLE  LOOKUP  (101  D1ST) 

IN*  string  8  CHARACTER  READ  OF  TEMPROAD  — IN*(A)  OR  IN*  <K)-K  &A  SAME 

IN*  STRING  INPUT  VARIED  LENGTH  STRINGS  OF  ROADF 1  LE— C/D ,XCLD , SI G  ,TEMP 

J  COUNTER  P/G  CLASS  INCREMENTAL  INDEX  3  CLASSES  (TABLE  LOOKUP) 

J1  COUNTER  COUNTER 

K  INTEGER  GENERAL  COUNTER 

LT  REAL  TOTAL  LENGTH  OF  ALL  NORMAL  LINES  USED  IN  AREA  APPROX. 

M  INTEGER  ASSIGNED  INTEGER  VALUE  OF  STRING  MONTH  i  . e  . 1 j anuar y ' < I i 1 3) 

M*  STRING  USER  INPUT  MONTH  STRING 

MX ( M 1 )  INTEGER  MX(12)  TEMPORAL  FACTOR  -  MONTH  (40X  ACTIVITY  =.4  *  10) 

Ml  INTEGER  MONTH  —REDUNDENT  WITH  *M* 

MAX  REAL  LARGEST  Y-COORDINATE  OF  PARKING  LOT  CORNER 

MI  REAL  SMALLEST  Y  COORDINATE  OF  PARKING  LOT  CORNER 

NCX(J)  INTEGER  NUMBER  OF  ENDPOINTS  FOUND  FOR  LINE  SEGMENT  J 

NL  REAL  NUMBER  OF  LINE  ELEMENTS  IN  INTEGRATION 

P  INTEGER  POLLUTANT  INDEX  IN  F(T,P) 

P2  REAL  STABILITY  INDEX  FOR  TABLE  LOOKUP 

PC(I)  REAL  POLLUTANT  CONCENTRATION  FOR  SPECIES  I 
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VARIABLE  LIST 

NAME  TYPE  DESCRIPTION 

PG  INTEGER  PASQU I  LL/GIFFORD  STABILITY  CLASS 

PI  REAL  PI  =  3.14159 

RR  COUNTER  COUNTER  FOR  RECEPTORS 

T  INTEGER  TEMPERATURE  INDEX  IN  F<P,T) 

TE  real  TE<5>  -  TOTAL  EMISSIONS  -  SUM  OF  *Q*  (5  POLLUTANTS) 

TEMP  REAL  USER  INPUT  TEMPERATURE 

TH  REAL  WIND  ANGLE  IN  RADI ENS 

TINDX  INTEGER  TEMPERATURE  INDEX  PRIOR  TO  TEMP  INTERPOLAT I  ON 

W/.(W1)  INTEGER  W/<5)  temp  Factor  -  monthweek  <30 V.  activity  =  .3  *  10) 

W1  INTEGER  WEEK 

WS  REAL  USER  INPUT  WIND  SPEED 

WS  REAL  WIND  SPEED 

X*  STRING  READ  IN  *x‘  COORD  STRING  FOR  RECEPTOR  -  B  CHAR  LONG 

XD< I )  REAL  SCREEN  COORDINATES  OF  LINE  INTEGRATION  ELEMENT 

XL  < I )  REAL  X  -  COORDINATE  OF  NORMAL  LINES  IN  AREA  APPROX  I  MAT  1  ON 

XR  REAL  *X'  COORDINATE  OF  RECEPTOR 

XR( I )  REAL  X  -  COORDINATE  OF  PARKING  LOT  CORNER 

Y*  STRING  READ  IN  *Y*  COORD  OF  RECEPTOR  RANDOM  ACCESS  8  CHAR  LONG 

YO  REAL  INITIAL  PLLME  S1GT-VA  Y 

YD( I )  REAL  SCREEN  COORDINATE  OF  LINE  INTEGRATION  ELEMENT 

YL< I )  REAL  Y  COORDINATE  OF  NORMAL  LINES  IN  AREA  APPROXIMATION 

YR  REAL  ■Y*  COORDINATE  OF  RECEPTOR  * 

YR*  STRING  USER  INPUT  OF  ’YEAR' 
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VARIABLE  LIST 


NAME 

TYPE 

DESCRIPTION 

YR<  I ) 

REAL 

Y  -  COORDINATE  OF  PARKING  LOT  CORNER 

YT 

REAL 

TABULATED  SIGMA  Y  VALUES  ASSIGNED  FOR 

P/G 

TABLE 

LOOKUP 

20 

REAL 

INITIAL  PLUME  SIGftt  2 

2Q 

INTEGER 

BOOLEAN  CONTROL  <0  or  1)  IF  INPUT  ERROR 

IN 

DATE, 

WEATHER 

21 

REAL 

TABULATED  SIGMA  2  VALUES  ASSIGNED  FOR 

P/G  TABLE 

LOOKUP 
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#»*«****«****»****•#******•*••##•»•»••»*•*•*••••*»«»*•**»**••••••»«•«•»*»*««*«* 

*  « 

*  AREA  SOURCE  DISPERSION  PROGRAM  # 

•  • 
*«**«***»****•«*««•*•«••*«**««*«««•*•«•*•••*«*«*«•«««*««*«••••«*«•«««•«•«#«•*«« 


10  DIM  IN*<  96) ,  F(  5 ,  5),  MX<  12),  W/.C5),  FK15),  D*/<7),  HX<24),  FM*(25) 

11  DIM  ND( 80 ) ,  TC< 5 ,  5> ,  2TC100,  3),  YTC100,  3),  E(5),  F*(6) ,  TE(5),  GM*<10) 

12  DIM  XL< 80 ,  1),  XQ<5)  ,  YQ(5)  ,  YL<80),  NCr/.<80),  YP(5>,  XP(5) 

13  DIM  CD< 40 ) ,  XD< 1 ) ,  YD<1),  XR<10),  YR< 1 0 ) ,  0(5),  PC<5) 

20  OPEN  ’ I • ,  #1,  ■PARKFILE.TXT’ '  FILE  OF  SOURCES 

30  OPEN  *  I ' ,  *3,  'TEMPPARK.TXT"  CALCULATE  EMISSION  RATES  FROM  EMISSION  MODEL 
50  HOURN  =  0 

60  INPUT  'SCREENING  -  'S'  OR  REFINED  -  'R'  *  ;  BAT* 

70  GOSUB  15070:  IF  BAT*  <>  'S'  AND  BAT*  <>  'R'  THEN  60 
80  IF  BAT*  =  'S'  THEN  90  ELSE  OPEN  'I',  #6,  'WEATHER . DAT* 

90  WIDTH  *  LPT  1  : ' ,  132  '  SET  PRINTER  TO  132  COLUMN  PRINT  MODE 

91  LPRINT  CHR*< 1 5)  '  SET  PRINTER  TO  CONDENCED  MODE 

92  LPRINT  CHR*( 27) ;  CHR*<81) 

93  TWR  =  1 
95  J1  =  0 

110  GOSUB  1470  '  ASSIGN  DAYS  OF  WEEK  TO  ARRAY  F* 

114  GOSUB  14000  '  READ  IN  GAUSSIAN  PLUME  TABLE 

115  GOSUB  2830  '  SET  UP  FOR  INTERP  OF  GAUSS  CURVE 

116  GOSUB  2960  '  READ  INTERPOLATION  TABLE  FOR  SIGMAS 

119  GOSUB  1590  '  INPUT  TIME  FND  WEATHER 

120  IF  HOURN  <  1  THEN  GOSUB  5100:  '  SETUP  AND  PRINT  REPORT 

122  GOSUB  3900  '  INPUT  RECEPTOR  LOCATION 

123  G0SU8  1180  '  ZELLERS  CONGRUENCE  LAW 

124  GOTO  1020  '  READ  SOURCE 

126  GOSUB  1800  7  CALCULATE  TEMPORAL  FACTOR 

127  GOSUB  1500  '  TEMPERATURE  INTERPOLATION 

128  GOSUB  2600  '  CALCULATE  DISPERSION 

129  GOTO  124  '  CONTINUE  TO  NEXT  SOURCE 

130  END 


-  -»• 
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«»***»***»»•*******••**•••••*•**••**••»•***•**••***•*•••*••*****•«»**•*•***»•** 
«  « 

*  WME:  FILEREAD  « 

*  FUNCTION:  READS  IN  SOURCE  DATA  FILES  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  PROGRAMS  « 

*  « 
******************************************************************************* 

1020  R  =  R  +  1 

1030  IF  EOF(l)  OR  E0F<3)  THEN  13000 
1040  RE  =  R  -  1 
1045  INPUT  M3 ,  PT* 

1047  A  =  0:  FOR  X  =  1  TO  LENCPT*)  STEP  8:  A  =  A  +  1:  IN*<A)  =  MID*<PT»,  X,  8): 
NEXT  X 

1050  FOR  K  =  1  TO  25:  J  =  K:  P  =  1  ♦  1NT(<J  -  1 )  /  5) :  T  =  J  -  (P  -  1 )  *  5 : 

F<P,  T)  =  VAL(IN *<«)):  NEXT  K 

1060  FOR  A  =  16  TO  89:  INPUT  Ml,  IN*(A):  NEXT  A 
1065  HF  =  8760:  '  INPUT  HOURS  FULL  OPERATION 

1100  FOR  K  =  1  TO  7:  LET  DX.OO  =  10  *  VAL(IN*<K  ♦  40)):  NEXT  K 

1110  FOR  K  =  1  TO  5:  LET  Lf/.(K)  =  10  *  VALCINXK  ♦  47)):  NEXT  K 

1120  FOR  K  =  1  TO  12:  LET  MX(K)  =  10  *  YAL<IN*<K  ♦  52)):  NEXT  K 

1130  FOR  K  =  1  TO  24:  LET  HXOO  =  10  *  YAL<1N*(K  ♦  64)):  NEXT  K 

1140  FOR  K  =  1  TO  5:  LET  £<K)  =  .0359:  NEXT  K 

1150  LET  H  =  VAL<IN*<38)) 

1174  XF  =  FRE  <  0 ) 

1175  GOTO  126 

******************************************************************************1 
*  1 

*  NAME :  DAY 

*  FUNCTION:  USES  ZELLER'S  CONGRUENCE  LAD  TO  DETERMINE  DAY  OF  WEEK 

*  FROM  DATE 

«  CALLED  FROM:  MAIN  —  hWIN  PROGRAM 

*  CALLS:  NO  OTHER  ROUTINES 

* 

************************************************************************  ***** 
1180  CLS 

1200  C  =  L>AL<LEFT*<YR*,  2)):  D  =  VAL  ( RI  GHT*  ( YR*  ,  2)) 

1210  GOSUB  1337 

1220  Ml  =  INT(M):  U1  =  INT(FC  /  7)  ♦  1 :  HI  =  INT(HR) 

1230  M  =  M  -  2:  IF  M  <  1  THEN  D=D-1:M  =  M+12 

1240  IF  D  <  0  THEN  D=9?*D:C=C-1 

1250  X  =  ( INT (2.6  *  M  -  .2  ♦  .00001)  ♦  FC  ♦  D  ♦  I NT ( D  /  4  ♦  .00001)  + 

1NT < C/4  ♦  .00001  )  -  <2  »  C))  1260  Y  =  X  /  7 

1270  Z  =  ABS<Y  -  INT < Y  ♦  .00001  )):  REM  DECIMAL  REMAINDER 

1280  DT  =  INT < 7  *  Z  ♦  .00001  ):  REM  INTEGER  REMAINDER 
1290  DT  =  DT  ♦  1 
1330  RETURN 
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a***##**###***#####****#*#**#**#**##*#***#**#**##*#**#*******#**#*#***#****#*## 


•  « 

*  NAME :  MONTH  « 

*  FUNCTION:  ASSIGNS  MONTH  INDEX  M  FOR  SUBROUTINE  DAY  * 

»  CALLED  FROM:  WUN  « 

*  CALLS:  NO  OTHER  ROUTINES  • 

*  « 


##***#«#*******###***#***#*»**#**«*****»#******###*»***#«»**«***#****#******»*# 

1337  M  =  13 

1338  GOSUB  15000  '  CONCERT  Mi  TO  ALL  CAPS 


1340 

IF 

LEFT* (Mi, 

3) 

= 

•JAN’ 

THEN 

M 

= 

1 

1350 

IF 

LEFTi(Mi, 

3) 

= 

■FEB’ 

THEN 

M 

= 

2 

1360 

IF 

LEFTi(Mi , 

3) 

= 

•fttR1 

THEN 

M 

S 

3 

1370 

IF 

LEFT*(Mi , 

3) 

= 

■APR’ 

THEN 

M 

= 

4 

1380 

IF 

LEFTi(Mi , 

3) 

= 

■MAY’ 

THEN 

M 

= 

5 

1390 

IF 

LEFTi(Mi , 

3) 

•JUN’ 

THEN 

M 

= 

6 

1400 

IF 

LEFTi(Mi , 

3) 

= 

’JUL* 

THEN 

M 

= 

7 

1410 

IF 

LEFTi(Mi, 

3) 

= 

’AUG’ 

THEN 

M 

= 

8 

1420 

IF 

LEFTi(Mi, 

3) 

= 

’SEP" 

THEN 

M 

= 

9 

1440 

IF 

LEFT*(M* , 

3) 

= 

■NOD* 

THEN 

M 

= 

11 

1450 

IF 

LEFTiCMi, 

3) 

= 

■DEC’ 

THEN 

M 

12 

1460  RETURN 

«»«***«*****«*«*#**•••******«»•**•**«*•««•***•«*«««*««•«***«•*«««•«•**»«•«**«•• 


*  # 

*  NAME:  WEEK  * 

*  FUNCTION:  SETS  UP  TABLE  OF  NAMES  OF  DAYS  * 

*  CALLED  FROM:  MAIN  --  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


***********##♦»*«**»#*»**#»**»*********»##♦**#*»**#*»****»*«*»***#«*****,»«**** 

1470  FOR  A  =  0  TO  6:  READ  Fi<A) :  NEXT  A 

1480  DATA  ‘SUNDAY’ , ’MONDAY" , "TUESDAY" , ’WEDNESDAY' , ’THURSDAY' , 'FRI DAY’ , ’SATURDAY’ 
1490  RETURN 

•  «••*•«««»««***•**•**•««««••*••«*•«««••*«  *x •***«*•«  »**•******»******»**»»«*»##** 


*  # 

«  NAME :  EMISSIONS  * 

*  FUNCTION:  INTERPOLATES  LOT  EMISSIONS  FOR  AMBIENT  TEMPERATURE  * 

*  CALLED  FROM:  FttIN  --  MAIN  PROGRAM  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

«  * 


«**•**•***»••»*»••••*••*****•*••«»**•*•»*•#**•»*«•#«*••«•*»*•****•*•*•***•«***• 

1530  TINDX  =  INT<TEMP  /  25)  ♦  1 :  IF  TINDX  >  5  THEN  TINDX  =  5 
1540  FOR  P  =  1  TO  3 

1550  Q<P)  *  <F<TINDX,  P)  ♦  (FCTINDX  ♦  1  ,  P)  -  F<TINDX ,  P>) 

*  (TEMP  /  25  -  I  NT  (TEMP  /  25)))  «  TF  1560  NEXT  P 
1570  Q(4)  *  E(4)  /  HF  *  TF  *  1000:  0(5)  *  E(5)  /  HF  *  TF  *  1000 

1575  FOR  I  =  1  TO  5:  Q(I)  =  0(1)  /  60:  NEXT 

1576  FOR  A  =  1  TO  5:  TE(A)  =  TE(A)  ♦  0(A):  NEXT  A 

1580  RETURN 
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«»*»«*««*•*»•*••••*****»***••*«*«**•*•••*»#•*•••*•**••*•••##****••**»•••#*•»«*• 


«  « 

*  NAME:  INPUT  * 

*  FUNCTION:  INPUT  OF  HETEROLOGY  DATE  FROM  KEYBOARD  # 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  CONDITIONALLY  CALLS  THE  FILE  INPUT  VERSION  OF  THIS  * 

*  ROUTINE  * 

«  « 


#***«•»»*•«*•*»»*»*»••******•»•*•«**•*»**•**»•*••**••***•••••*•*•••»**#•••*•»«* 

1590  CLS  : IF  BAT*  =  "R"  THEN  2000 

1591  LOCATE  5,  10:  INPUT  'YEAR  =  ■;  YR*:  IF  2Q  >  0  THEN  RETURN 

1592  LOCATE  7,  10:  INPUT  "MONTH  *  *  j  M* 

1593  GOSUB  15000:  GOSUB  1337:  IF  ZO  >  0  THEN  RETURN 

1594  IF  M  =  13  THEN  GOTO  1592:  REM  CHECK  MONTH  IS  IN  BOUNDS 

1595  LOCATE  9,  10:  INPUT  "DAY  OF  MONTH  =  ";  FC:  IF  ZQ  >  0  THEN  RETURN 

1  <400  DA  =  K 

1610  LOCATE  11,  10:  INPUT  "HOUR  OF  DAY  <1-24)  =  HR:  IF  ZQ  >  0  THEN  RETURN 

1620  LOCATE  13,  10:  INPUT  "TEMPERATURE  (DEG  F)  =  ";  TEMP:  IF  ZQ  >  0  THEN  RETURN 

1622  IF  TEMP  >  100  THEN  TEMP  =  100 

1624  IF  TEMP  <  0  THEN  TEMP  =  0 

1630  LOCATE  15,  10:  INPUT  "WIND  SPtED  (M/S)  =  ";  WS:  V=WS:  IF  V  <  1 

THEN  WS  =  1 

1631  IF  ZQ  >  0  THEN  RETURN 

1635  LOrATE  17,  10:  INPUT  "WIND  DIRECTION  (DEG  N)  =  " ;  W 

1636  IF  ZQ  )  0  THEN  RETURN 

1640  LOCATE  19,  10:  INPUT  "P/G  CLASS  (2-5)  =  ";  PG:  IF  ZQ  >  0  THEN  RETURN 

1650  CLS 
1660  ZQ  =  0 

1664  PRINT  " 1 .YEAR  =  " ;  YR*  1665  PRINT  "2. MONTH  =  "  ;  M* 

1670  PRINT  "3. DAY  OF  MONTH  =  ■ ;  FC 
1 c75  PRINT  "4. HOUR  OF  DAY  =  ’ ;  HR 
1680  PRINT  "5. TEMPERATURE  =  "j  TEMP 
1685  PRINT  "6. WIND  SPEED  =  " ;  WS 
1690  PRINT  "7. DIRECTION  =  ";  W 
1695  PRINT  " 8 . PG  CLASS  =  " ;  PG 

1699  XF  =  FRE<0) 

1700  INPUT  "ARE  THESE  CORRECT  <Y  OR  N)"j 

1701  IF  PG  <  2  THEN  PG  =  2 

1702  IF  PG  >  5  THEN  PG  =  5 

1703  IF  AN*  <>  "N"  THEN  RETURN 

1704  ZQ  =  ZQ  ♦  1 

1705  INPUT  "CWWGE  WHICH  VALUE";  AN 

1706  CLS 

1710  ON  AN  GOSUB  1591,  1592,  1595,  1610,  1620,  1630,  1635,  1640 

1711  ZQ  =  0 
1715  GOTO  1650 
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«•*#•**«»*****«*•«•*»•*«#«•**#*•*•••••*»•••*••**#*•••«*•**•*•«**•*•«****•*•••** 


*  * 

#  NAME:  DUTY  * 

*  FUNCTION:  CALCULATE  THE  CORRECT  TEMPORAL  FACTOR  « 

*  CALLED  FROM:  MWAIN  —  PWIN  PROGRAM  « 

«  CALLS:  NO  OTHER  ROUTINES  » 

•  * 


«*«****««*«******«*****••*•*••*•*•***«•**••*•**••*«***«»*«•••••••«**«*««•*•»•** 

1800  TF  «  My.(Ml)  *  W/.< Ul>  »  DX(DT) 

1810  TF  =  TF  /  10000 
1820  TF  »  TF  *  HX.(H1  ♦  1) 

1830  RETURN 

*«*•*«*•••***«•»*«**•«*•*«•«*•*••*•«•*«•••*«••«««**•***••»«»«**•*****•««***•«** 


«  * 

*  NAME :  WEATHER  « 

*  FUNCTION:  FILE  VERSION  OF  INPUT  ROUTINE  * 

*  CALLED  FROM:  INPUT  —  SUBROUTIN"  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


******•********««***«*****«***•«»**•****«**«**•**•***«*«•*•**«•»«**•*••«****«•* 

2000  IF  EOF (6)  THEN  16000 

2010  INPUT  *6,  ENP* 

2020  YR*  =  MID*(ENP*,  1,  4):  YR  =  VAL(YRf) 

2030  M*  =  MI  D*<  ENP* ,  5,  3):  GOSUB  1337 
2040  FC  =  VAL(M1D*(ENP*,  8,  2)) 

2050  HR  =  VAL(MID*(ENP$,  10,  2)) 

2060  TEMP  =  VAL (MI D*<  ENP* ,  12,  3)) 

2070  US  =  VAL<MI D*<  ENP* ,  15,  2))  *  .514668 

2080  W  =  (UAL (MID* (ENP*,  17,  2))  *  10) 

2090  PG  =  VAL( RIGHT* (ENP*,  D) 

2100  IF  US  <  1  THEN  2000 

2110  IF  PG  <  3  THEN  PG  =  3 

2120  RETURN 
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#»**»#*##*#***«##**###*«#»##******##*##*#»*******#**»*#***#***»#*##*#*#**»»**** 


«  * 

*  NAME :  DISPERSION  • 

*  FUNCTION:  CONTROL  LOOP  FOR  ALL  DISPERSION  CALCULATIONS  * 

*  CALLED  FROM:  to  IN  —  MAIN  PROGRAM  « 

*  CALLS:  DRAW,  ROTATE,  GAUSS,  LINES,  CONC,  PRINT  • 

«  « 


•«««•**«*•••**•**««•*•••*•••*•*•*•*•**••*•••**••*•*••«•»*•«»•**••••••••«•*•«**« 

2600  XQ( 1 )  =  VAL<1N*<17)):  YQ<1)  =  VAL<1N*<18>> 

2610  XQ( 2)  *  VAL< IN$( 19) ) :  YQ<2)  =  VAL<1N*<20>> 

2620  XQ<4)  =  VAL< IN*<21 ) ) :  YQ<4)  =  VAL<IN*<22>> 

2630  XO( 3)  =  VAL<1N*<23)) :  Y0<3)  =  VAL<IN*<24>> 

2640  IF  PG  >  5  THEN  PG  =  5 
2650  IF  PG  <  2  THEN  PG  =  2 
2690  GOSUB  4500:  REM  DRAW  SOURCE 
2695  RX  =  XR;  RY  =  YR 
^/uu  XF  =  FRE<0) 

2705  GOSUB  3700:  REM  ROTATE/TRANSLATE 
2710  GOSUB  14270 

2764  GOSUB  14045:  REM  GET  CONCENTRATION 

2765  GOSUB  12000:  REM  PRINT  RESULTS 

2766  XF  =  FRE<0) 

2767  RETURN 

***»*«*»***«**«***»*»**«**»*«•»**»**»*»«•*•***»••«»**#*«•••«•«««*•«*•«••*•*«*** 


*  * 

*  NAME:  GAUSSTABLE  « 

«  FUNCTION:  CALCULATE  THE  GAUSSIFW  PLUME  TABLE  * 

*  CALLED  FROM:  tolN  —  MAIN  PROGRAM  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  < 


**«**«*****«****«**»***»******»•*«*»•»*•••»*•*«•*•****»****«*«***«•**««»**»**«• 

2840  FOR  1  =  0  TO  40 

2850  ND< I )  =  EXP< - . 005  *  I  *  I) 

2860  NEXT  I 
2870  RETURN 

*•*«•«**«*****«««««««•••«*«««•««•«««*««*•••«*******«•«**«*•*«•*•*•••«*««******* 


*  * 

*  NAME:  NORtoL  « 

«  FUNCTION:  CALCULATE  THE  NORMAL  DIST  CURVE  * 

*  CALLED  FROM:  MAIN  —  tolN  PROGR/¥i  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

«  « 


a***##*##**##****##*#*####***###*#******#*#***#***#*****#*##******#***#******** 

2890  IF  ABS<X)  >  4  THEN  FX  =  0 :  GOTO  2950 
2900  X  *  ABS(X)  *  10 
2910  IX  *  1NT(X) 

2920  DX  =  <X  -  IX) 

2930  FA  *  ND(IX)  -  ND< IX  ♦  1 ) 

2940  FX  «  ND(IX)-  FA  *  DX 
2530  RETURN 


C55 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


*  * 

*  WWE:  S1GMATABLE  * 

*  FUNCTION:  READS  IN  SIGf-tt  TABLE  INFORFttTION  FROM  FILE  * 

x  CALLED  FROM:  FttIN  --  httIN  PROGRAM  * 

x  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2960  OPEN  ’SIGMA'  FOR  INPUT  AS  #2 
2980  FOR  J  =  0  TO  3 

2990  FOR  I  =  0  TO  100 

3000  INPUT  #2,  A*,  B* :  ZT<I,  J)  =  YAL(A*>:  YT(I,  J)  =  YAL(B*> 

3010  NEXT  I 

30 20  NEXT  J 

3040  CLOSE  1*2 
3045  RETURN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxrxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


»  x 

x  NAME :  SIGftt  * 

x  FUNCTION:  INTERPOLATION  FOR  SIGMAS  x 

x  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  x 

x  CALLS:  NO  OTHER  ROUTINES  * 

x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3060  X  =  ABS(X) 

3070  IF  X  >  9999  THEN  X  =  9999 
3075  P2  =  PG  -  2:X=X+100xZ0/ZT< 1 ,P2) 

3080  IX  =  I NT <X  x  .01) 

3090  DX  =  X  x  .01  -  IX 

3100  DZ  =  ZT< IX  ♦  1,  P2)  -  ZT< IX ,  P2) 

3110  DY  *  YT< IX  ♦  1,  P2)  -  YT<IX,  P2) 

3120  SZ  =  ZT( IX ,  P2)  ♦  DZ  x  DX 

3130  SY  =  YT( IX ,  P2)  +  DY  x  DX 

3140  RETURN 
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*###»*»#****##*#**###****#*»«****»#***»*•**#****#*«*******##**»»#»*#*#**#»***** 


* 

* 

NAME : 

ROTATE 

« 

• 

# 

FUNCTION: 

CALCULATE  **ID  ROTATE  COORDINATES  SO  WIND 

IS  OUT  OF  NORTH  # 

* 

CALLED  FROM: 

DISPERSION  —  DISPERSION  SUBROUTINE 

« 

# 

CALLS: 

NO  OTHER  ROUTINES 

« 

* 

* 

««#**•»***•*«*«•*«**«•»*•«•«•«»••»**•***<•*•••««••»••**•*«•«**••««*•«*««*•«**** 
3490  X  =  OP  /  SY:  GOSUB  2880:  C  *  FX 

3700  TH  =  3.14159  /  180  *  <-W>:  CO  =  COS(TH) :  SI  =  SIN(TH) 

3710  C4  =  RX  *  CO  ♦  RY  *  SI :  RY  =  RY  *  CO  -  RX  *  SI  :  RX  =  C4 

3720  FOR  1  -  1  T0  4 

3730  XR< I )  -  XQ< I )  *  CO  ♦  YQ(I)  *  SI  -  RX 

3740  YR< I )  =  YQ(I)  *  CO  -  XO<I)  «  SI  -  RY 

3742  NEXT  I 

3745  RX  =  0:  RY  =  0 

3750  RETURN 


*«««*««•««*«««•*«•«**««*«««*«««*«**«******«#*•*«*«•»•»«»•••*••«**»•*•***«••*•** 


*  * 

»  NAME:  RECEPTOR  * 

*  FUNCTION:  INPUT  RECEPTOR  FROM  FILE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGR)¥1  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  • 


««****«»«»••******•«»***•»****«•«««*••**#*«•«*****•***««#*•#*#*****«*»*»*»»»»*« 

3904  RR  «  RR  ♦  1 

3905  OPEN  'ROO' ,#2, 'RECP.TXT* , 14 
3904  FIELD  2,  8  AS  X*,  8  AS  Y* 

3910  GET  #2,  RR 

3920  XR  =  VAL<X*):  YR  =  VALCY*) 

3945  CLOSE  *2 
3970  RETURN 

*#******##**#**##«***#*###**#**»***#*«*#*****»******»***********»************** 


*  * 

*  NAME :  DRAW  * 

*  FUNCTION:  DISPLAY  SOURCE  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  # 


»**«****•***»•***«*•»••*•«»»•»*•»»***«*»•*••«*»*»»*««•*«****•#•*««*****•*•»»««« 

4505  FOR  I  =  1  TO  4 
4510  XP(I)  =  XQ(I)  *  SM  ♦  XO 
4520  IF  XP<1)  <  0  THEN  XP<1)  =  0 

4530  IF  XP(I)  >  279  THEN  XP<I>  =  279 

4540  YP<I>  ■  YO  -  YOU)  «  SM 
4550  IF  YP<I)  <  0  THEN  YP<1)  =  0 

4540  IF  YP< I )  >  159  THEN  YP(I)  =  159 

4570  NEXT  I 

4580  XP< 5)  =  XP< 1 ) :  YP<5>  *  YP<1) 

4440  RETURN 
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******#*#**»***#**»*#*##**#******##***#*****##**»**###»***»***#****«*#»#*»*»*** 


•  • 

*  NAME :  E  REPORT  * 

*  FUNCTION:  PRINT  EMISSION  REPORT  * 

*  CALLED  FROM:  f-WIN  —  MAIN  PROGRAM  # 

*  CALLS:  NO  OTHER  ROUTINES  « 

«  * 


*««»*»»«»»****«»««***»««***k*****«««*««*****»****«*««**««*****«<****«****<*«*«« 

5100  XF  =  FRECO) 


5150 

1 

1 

1 

1 

1 

1 

1 

1 

t 

1 

1 

1 

1 

1 

1 

* 

II 

£ 

U. 

■ 

"  "  *  ■  ■  i 

5155 

FM* (13)  =  ‘ i 

EMISSION 

REPORT  (PARKING  LOTS) 

f  ■ 

1 

5160 

FMf ( 2 )  =  * : 

INPUTS 

i 

t 

OUTPUTS 

i  • 

1 

5170 

FM*(11)  =  *  1 

■ 

♦  LEFT*(MJ ,  3)  ♦  *-■  ♦  RIGHT*<"  "  ♦  STR$(FC),  2)  + 

4  RIGHT*(YR$,  2) 

+  ■  C  4  LEF  T*(STR*(HR) , 

2)  +  *00* 

5180 

FM*(12)  =  "  HR.) 

1  • 

1 

5200 

FM*( 3)  =  ’ ! COORDINATES  OF 

SOURCES  (M)  ! 

(MOBILE 

3)  : 

EMISSION  RATES 

t  ■ 

1 

5210 

FM*(4)  =  * !  ORIGIN  AT 

(0,0) 

i  « 

5215 

rrl?  w  >  i  -------------- 

i 

t  ■ 

5220 

FM*(5)  =  " ! LOT ! 

< 

1 

SI G  : PLUME: CARS/! 

MIN/ '.TEMP  [YEAR! 

GM/SEC 

1  II 

1 

5230 

FM*<6)  =  *!♦*!  XI  Y 1  ! 

X2  Y2  !  X3  Y3  !  X4  Y4  1 

z  :  ht.  :  hr  ; 

CAR  !  (F) 1  ;  CO  : 

hc  i  nox  :  sox  : 

PART  : “ 

5250 

1 

rn»'r’  =  , - - - 

■ 

——————————  |* 

t  • 

5260 

* 

LPRINT  FM$ < 1 ) :  LPRINT  FM*(13):  LPRINT  FM»(11);  FM»(12) 

LPRINT  FM* ( 1 ) : 

LPRINT  FM*<2):  LPRINT  FM*(1):  LPRINT  FM*<3):  LPRINT  FM*(4):  LPRINT 
FM*<8):  LPR  INT  FM$(5):  LPRINT  FM*(6) 

5340  LPRINT  Fm<l) 

5350  XF  =  FRE(O) 

5355  RETURN 


-  C58  - 

««***••«»»«*****»#*««**•*«•«*#«•*••*••***•***#•«•**«*»•*•***»•*»*»••»*»»***#»#• 


«  « 

#  hWiE:  REPORT  * 

«  FUNCTION:  PRINT  DISPERSION  REPORT  * 

»  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  * 


a*********#***#*#*#*#***#***##**#**********###*##***##***#*###***#***##*#*#*##* 


5420  XF  -  FRE<0) 


5425 

FM*<9)  = 

=  1 

R1  GHT<< * 

■ 

♦  STR*(R),  3) 

5430 

FM<  < 1 0 ) 

= 

RIGHT<<" 

■ 

♦  STR<<XQ< 1 ) > , 

4) 

5440 

FM<<11) 

= 

*,■  ♦  RIGHT<< 

■  *  ♦  STR*(YQ( 1 ) ) ,  4) 

5450 

FM<<12) 

= 

RIGHT<< ’ 

♦  STR<<XQ<  2) ) , 

4)  ♦ 

5460 

FM<  < 1 3 ) 

= 

RIGHT<< ‘ 

STR*<YG< 2)  > , 

4) 

5461 

FM<<22) 

= 

RIGHT* <  * 

+  STR<(XG< 4) ) , 

4)  ♦ 

5462 

FM<<23> 

= 

R1GHT*< ' 

♦  STR*(YQ<4) ) , 

4) 

5463 

FM<<24) 

8 

RIGHT*( ’ 

+  STR*<XQ< 3) ) , 

4)  ♦  * 

5464 

FM<<25) 

= 

R1  GHT*<  * 

♦  STR*<YQ< 3) ) , 

4) 

5470 

FM< (14) 

S5 

LEFT*( IN*<  40 ) 

♦  *  •,  5) 

5480 

FM<<15) 

= 

LEFT*< 1  ' 

♦  1N*< 38)  ♦  ‘ 

,  5) 

5510 

Fit*  <  1 8 ) 

= 

RIGHT*<  * 

a 

4  STR*< INT<VAL<1N<< 36)))  «  TF),  5) 

5520 

FM<  <  1  9 ) 

= 

R1  GHT*<  * 

■  ♦  STR*<VAL<IN*<35))>,  5) 

5530 

FM<<  20) 

= 

R1 GHT*( * 

a 

♦  STR*<TEMP), 

4) 

5540 

FM<<21 ) 

ss 

RI  GHT*< " 

■ 

♦  STR*<VAL< 1N*( 33) ) ) ,  4) 

5700 

LPRINT 

■ 

!* ;  FM*< 9) 

«  »  » 
t  • 

*;  FM* (10);  FM*<11);  '!*;  FM*<12); 

*!■:  FM*<22);  FM*<23);  ' ! ’ ;  FM*<24)  ;  FM*<  25) ;  •!";  FM*<14);  *!*;  FH» < 15); 
FM*<  18);  * !  •  ;  FM*< 19) ;  •  !* ;  FM*<20);  * !  * ;  FM*<21);  * ! * ; 

5706  XF  «  FRE(O) 

5710  FOR  I  =  1  TO  5:  LPR1NT  USING  " ## . *#A A AA * ;  Q(1);:LPRINT  NEXT  I  :LPR1NT 

5720  RETURN 


«•«**««•««**««•****•**•*««*****••*•»**•***«***•»*«****«*»««**«*««•«•••***««**** 


#  * 

*  NAME :  PRINT  « 

*  FUNCTION:  PRINT  CONCENTRATIONS  ON  THE  SCREEN  » 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


#*»«**********#***#**#*#*##*##*****»*#****#«*##«**#***#*##**#»##*#***#*#******* 


12020  FOR  I  =  1  TO  5:  PC<  I )  =  PC<  1 )  ♦  G  «  Q<I)  /  WS:  PRINT  USING  *#*  ; 

PC( I ) ;  :  NEXT  I  12030  IF  TWR  <=  1  AND  HOURN  =  0  THEN  GOSUB  5420 
12040  PRINT 

12100  IF  X  <  IE-09  THEN  X  =  0 

12120  IF  X  =  0  THEN  E*  =  •0.00":  El  =  0:  GOTO  12170 
12130  El  =  LOG(X)  /  LOG<10) 

12140  E2  =  El  -  I NT < El ) 

12150  E3  =  10  A  E2  ♦  .005 

12160  E*  =  LEFT<<STR<< E3)  ♦  *  *,  4) 

12170  £<=£*♦  *E‘  ♦  RIGHT<<*00*  ♦  STR*< INTCEl > > ,  2) 

12180  RETURN 


*»»*»***»»*»»»»»*»»»»*»**»#»**•***«»•*•••«*•*••*••••*•**••*••*****«#**•»««»•««• 


*  • 

*  NAME :  D  REPORT  * 

*  FUNCTION:  PRINT  DISPERSION  REPORT  # 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  AND  MrtlN  —  MAIN  PROGRFW  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


a**#*###*#*###***#*#**##***#*#*##**###*#####****#**###***#****#**##*#**##*#*### 

1 3000  X  =  FRE<0) 

13001  IF  HOURN  >=  1  THEN  13023 

13002  HOURN  =  HOURN  +  1 

13003  IF  TWR  >  1  THEN  13023 

13004  TWR  =  TWR  ♦  1 

13005  ES*  =  *  ' 

13007  LPRINT  FM*<1) 

1 3008  LPRINT  * 

TOTAL  !•;  :  FOR  A  =  1  TO  5;  LPRINT  USING**# .##AAAA* ;TE(A> ; :LPRINT* ! *  ;  : 
NEXT  A 


13010 

13011 

FM*<2)  = 

1 

1 

FM$(  3)  = 
REPORT 

•  1 

l 

1  1 

OUTPUT 

INPUTS 

1  V 

1 

DISPERSION 

i 

i 

<  a 

i 

1  o  U  1  6 

rrT>  K  1  )  = 

« 

13017 

GM*<5)  = 

»  l 

1 

l 

l 

1  1  1  ( 

NO.  !  X  !  Y 

1  !  CO 

HC 

NOX 

:  sox 

!  PART  1  * 

13018 

GMJ(l)  = 

■  < 

1 

DATE  ! HR 

!W/S!WD  1P/G! 

RECEPTOR 

l  t 

i  l 

CONCENTRATION 

GM/MA  3 

2  ■ 

13019 

GM*<2)  = 
• 

1  1 

1 

1 

1 

:m/sideg!a=i : 

:  ■ 

• 

1 

13020 

• 

LPRINT 

LPRINT  FM*<1): 

LPRINT  FM*(3) : 

i 

LPRINT  FM*< 1 ) : 

LPRINT  FMi ( 2 ) : 

LPRINT  FM*<1):  LPRINT  GM$(1) 

13022  LPRINT  Gm(2)  :  LPRINT  FM*<1>:  LPRINT  GM*<5) 

13023  GM$< 3)  =  *i-  ♦  LEFT<(M# ,  3>  ♦  *-*  ♦  RIGHT*<"  *  ♦  STR*(FC>,  2)  ♦  *-*  ♦ 

RIGHT*(YR*,  2)  ♦  *!*  ♦  LEFTX  STR* ( HR)  4  •  *.  3)  4  *i*  ♦  mGn7*<’  *  + 

STR$(WS  ),  3)  ♦  *!*  ♦  RIGHTSC  *  ♦  STR*(W> ,  3) 

13024  GM*<4)  =  'I*  ♦  R1GHT$<*  *  ♦  STRt(PG) ,  3)  ♦  ”.  * 

13035  J2*  -  RI GHT$( *  *  ♦  STR*<RR)  ♦  *  ",  6) 

13037  YR  =  1NT (YR> :  XR  =  1NT<XR> 

13040  ADi  *  RIGHT$< "  *  ♦  STR*<XR) ,  5):  AE*  =  RI GHT*(  *  *  ♦  STW(YR) ,  5) 

13050  GM*<<S)  =  J2$  +*!*♦  AD«  ♦*!*  4  AE«  ♦*!"'♦  '  *  4 

13051  LPRINT  GM*<3> ;GM*<4) ;GM$<(4) ; :FOR  I  =  1  TO  5:  X  =  PC(I):  LPRINT  USING 

*##.##AAAA*;PC<J);. -LPRINT  NEXT  I  .-LPRINT 

13071  XF  =  FRE(O) 


C6C 


13074  GOSUB  14700 

13075  FOR  A  =  1  TO  5:  PC(A)  =  0:  NEXT  A 
13100  CLS 

13105  OPEN  *  RANDOM" ,  #2 ,  "RECP.TXT" ,16 

13106  FIELD  2,  8  AS  X*,  8  AS  Y* 

13107  GET  #2,  RR  ♦  1 

13108  X  =  YAL(Xf):  Y  =  UAL(Y*) 

*•**•**•*****•**«*•«««**«*««««««•*«*««««***«**•***••*••••**#••#*•##•*•»•»*•**•* 


*  « 

«  NAME:  READGAUSS  * 

*  FUNCTION:  READ  GAUSSIAN  PLUME  FILE  INTO  ARRAY  * 

«  CALLED  FROM:  MAIN  —  FW1N  PROGRtfl  « 

*  CALLS:  NO  OTHER  ROUTINES  « 

*  * 


««*«*•***«**«#*•••««•*«*»*»**#»#»*»»»»*****»••»***«»»*»**»*•****•**•*•******•*• 
14000  OPEN  "GAUSS*  FOR  INPUT  AS  *2 

14010  FOR  A  =  0  TO  40:  INPUT  #2,  A*:  CD<A>  =  VAL(A$):  NEXT  A 
14015  CLOSE  #2 
14020  RETURN 

•«##*••*«•***•»*»*«•*•»•»*»••*•«••***«•*•«*«*«*•*«*««•*«•«•*•»•*•«•••*•••••«•*• 


*  * 

*  NAME :  COTJC  * 

*  FUNCTION:  COMPUTES  NORMALIZED  CONCENTRATIONS  FROM  AREA  SOURCE  * 

*  CALLED  FROM:  DISPERSION  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


**•*•***«*****#*«••****««*«**»***«*»*«*•»*•***•*•»*•«#**«*«***«**«*«*****«*»•»* 


14045  NL  =  9 

14046  G  =  0 

14050  FOR  I  =  0  TO  NL 

14060  X  =  YU  I) :  GOSUB  3050 

14070  X  =  H  /  SZ:  GOSUB  2880:  D  =  FX 

14075  IF  YL<I)  <0  THEN  D  =  0 

14080  C  =  0 

14090  FOR  J  =  0  TO  1 

14100  X  =  XL<I ,  J)  /  SY 

14110  GOSUB  14170:  C  *  ABS<C  -  FX) 

14120  NEXT  J 

14130  G=D*C/SZ+G 

14140  NEXT  I 

14150  G  =  G  *  .79788  /  LT 

14160  RETURN 


-  C61  - 

*»***•»»•«**••*»*  4*»***#»**********#*#**#«*##«####*#***#***##*#*#***#*#*#***** 


«  « 

*  NAME:  GAUSS  « 

«  FUNCTION:  INTERPOLATES  TABLE  OF  AREAS  UNDER  GAUSS  CURVE  * 

*  CALLED  FROM:  DISPERSION  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

»  * 


****•**«*»*»*****•**«*•«*«•*«••**••«**««#****«***««*«*•*««**#*««««#«*#**«*#*•** 
14170  SN  *  1 

14180  IF  X  <  0  THEN  SN  =  -1 
14190  X  =  A8S<X)  *  10 

14200  IF  X  >  40  THEN  FX  =  I:  GOTO  14250 
14210  IX  *  I NT ( X ) 

14220  DX  *  (X  -  IX) 

14230  FA  =  CD< IX)  -  CDCIX  ♦  1 ) 

14240  FX  a  CD<X)  -  FA  *  DX 
14250  IF  SN  <  1  THEN  FX  =  1  -  FX 
14260  RETURN 


-  C62  - 

*«#*»*»»**»»»»*»»**•**»•**•«***»*«***«•*«**«**••««******#•*«•*•**«**««*****#*** 


*  * 

#  NAME :  LINES  * 

#  FUNCTION:  APPROX1PWTES  AREA  SOURCE  USING  NORMAL  LINES  * 

#  CALLED  FROM:  DISPERSION  * 

#  CALLS:  NO  OTHER  ROUTINES  # 

#  * 


«*•**»•*«*«***««•*****«•***•«*•*«««**«****•«***«***•***•***•••*•*•**•********** 

14270  XR<5>  =  XR< 1 ) :  YR<5)  -  YR< 1 ) 

14320  MAX  =  YR( 1 ) 

14330  MI  =  YR< 1 ) 

14340  FOR  I  =  0  TO  9:  NCX< I )  =  0:  NEXT 

14350  FOR  I  =  1  TO  4 

14360  IF  YR<  I )  >  mx  THEN  MAX  =  YR<1) 

14370  IF  YR(I)  <  MI  THEN  MI  =  YR(I) 

14380  NEXT  I 

14390  DY  =  (MAX  -  MI)  /  10 
14400  FOR  I  =  0  TO  9 
14410  YL< I )  =  MI  ♦  I  *  DY 
14420  NEXT  I 
14430  FOR  I  =  1  TO  4 
1 4440  DX  =  XR< I  +  1 )  -  XR( 1) 

14450  IF  DX  =  0  THEN  14480 
14460  A  =  < YR <  I  +  1)  -  YR(D)  /  DX 
14470  B  =  YR( I )  -  A  «  XR(I) 

14480  FOR  J  =  0  TO  9 

14490  IF  YL(J)  >  YR( I )  AND  YL(J)  )  YR<I  ♦  1)  THEN  14550 

14500  IF  YL(J)  <  YR< I )  AND  YL<J)  <  YR(I  +  1)  THEN  14550 

14510  K  =  0 

14520  IF  NCX(J)  <)  0  THEN  K  =  1 

14530  IF  DX  =  0  THEN  XL(J,  K)  =  XR<  I )  :  NCY.(J)  =  1:  GOTO  14550 

14535  IF  A  =  0  THEN  14550 

14540  XL<  J ,  K)  =  (YL<  J)  -  B)  /  A:  NC'/.(J)  =  1 

14550  NEXT  J 

14560  NEXT  I 

14565  LT  =  0 

14570  FOR  I  =  0  TO  9 

14590  FOR  J  =  0  TO  1 

14600  XD(J>  =  XL ( I  ,  J)  *  CO  -  YL(I)  *  SI  ♦  XR 

14610  YD< J )  =  YL< I )  «  CO  +  XL(I,  J)  *  SI  +  YR 

14630  XD( J )  =  XD<  J )  *  SM  +  XO 
14640  YD( J)  =  -YD( J)  *  SM  ♦  YO 
14660  NEXT  J 

14663  LT  =  LT  ♦  ABS(XL( I  ,  0)  -  XL ( I  ,  1)) 

14670  NEXT  I 

14675  IF  LT  =  0  THEN  LT  =  .00001 
14680  RETURN 


! 


-  C63  - 

**»##»*»*««**»**•******»***»«*»*«*«*«*«**«*««**•*••****•**•**«»•••#••****••»«#* 


«  « 

*  httME:  0UTF1LE  * 

*  FUNCTION:  PRINT  DISPERSION  RESULTS  TO  A  HOLD  FILE  * 

*  CALLED  FROM:  D  REPORT  —  SUBROUTINE  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


«*•**•««•***««**«*«*««*•«««**««««««*«««•«***««*«•*«***«««*«««««««***«**««**»**» 

14700  'OPEN  'RECEPTOR. TXT*  AS  HI  LEN  =  170 

14710  'FIELD  Hl,7,Tfc*<l),7,TR*(2>,7TRV3),7TR*<4),?,TR*<5) 

14720  'FOR  A  =  1  TO  5:  INPUTHl.Jl:  NEXT  A 
14730  'CLOSE  HI 

14735  'FOR  A  =  1  TO  5 :TR<A)=VAL<TR*<A) ) :  NEXT  A 

14740  'FOR  A  =  1  TO  5:TR<A)  =  TR<A)  ♦  PC(A) :  NEXT  A 

14750  'FOR  A  =  1  TO  5:X  =  TR(A) :  GOSUB  12100 :TR$<A)  =  E*:  NEXT  A 

1 4760  'OPEN' RECEPTOR .TXT  AS  HI  LEN  170 

14762  'FIELD  HI , 7 ,TR$< 1 ) , 7 ,TR*< 2) ,7TR$< 3) , 7TR*< 4) , 7 ,TR* < 5) 

14765  'FOR  A  =  1  TO  5:  TA*=TA$+TR*(A) :  NEXT  A 
14770  'PRINT  HI  TA*,J1 

14780  'FOR  A  =  1  TO  5:  PRINT  TR*<A):  NEXT  A 
14800  'CLOSE  HI 
14810  RETURN 

********«*«*«*****«**«*•***«******•*•**••**«•«»*«*•**#**••**«*««•**«**•***•«•** 


*  * 

*  NAME:  CASE  * 

*  FUNCTION:  COWERT  ALL  LETTERS  TO  UPPER  CASE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRF*1  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


a****************************************************************************** 

15000  FOR  A  =  1  TO  LEN(M«) 

15010  COWER  =  ASC(M1D*(M*,  A,  1)) 

15020  IF  COWER  >  96  THEN  COWER  =  COWER  -  32 
15030  MID*(M*,  A,  1)  =  CHR*<COWER> 

15040  NEXT  A 
15050  RETURN 


-  C64  - 

*«•*«»***#**#»»«*•»**»*•**»«*««»**•*«»•#*•*»«***••••«*#****•**«••««*••*•»*»»#*• 


*  « 

«  NAME ;  CASE2  # 

«  FUNCTION:  CONVERT  ALL  LETTERS  TO  UPPER  CASE  « 

*  CALLED  FROM:  ^IN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


**««»***«»»**•*«***«*»««**•****#»*********»****#*»*•*•*•»••*••*•*•****##******# 
15070  CONVER  =  ASC(BAT«) 

15080  IF  COWER  >  96  THEN  COWER  =  COWER  -  32 
15090  BAT*  =  CHR*<COWER> 

15100  RETURN 

«*******«•«**••*««*««*«*««••*****»**•*«*•*«••**•««»*•«*•••«•****«**•«****••***• 


«  « 

*  NAME:  END  WEATHER  « 

*  FUNCTION:  END  PROGRFW  WHEN  END  OF  WEATHER  FILE  IS  REACHED  « 

*  CALLED  FROM:  WEATHER  --  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


*****•**•***#****•****»•****•*«*****•••*»**»**•»#***#*****•*•**#*«**«***»«•«*#* 

16000  PRINT" END  OF  WEATHER  FILE..." 

16010  END 


t**IE 

TYPE 

A 

COUNTER 

A 

COUNTER 

A* 

STRING 

AC 

REAL 

em 

STRING 

B* 

STRING 

C 

REAL 

C 

INTEGER 

Cl 

REAL 

C2 

REAL 

C3 

REAL 

C4 

REAL 

chr*l 5 

string 

CHR*27 

STRING 

CHR*81 

STRING 

Cl 

REAL 

CP 

REAL 

CT 

REAL 

D 

INTEGER 

D 

REAL 

DTK  D 1 ) 

INTEGER 

D1 

REAL 

02 

REAL 

D3 

REAL 

-  C65  - 
VARIABLE  LIST 

DESCRIPTION 

COUNTS  OFF  PT$  IN  SUBSTRINGS  OF  8  CHARACTERS  EACH 
FS< a)  —  COUNTER  FOR  7  DAYS  OF  WEEK 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGhtt  2  (TABLE  LOOKUP) 

SLOPE  OF  PLUME  ENVELOPE 

REPLY  CHARACTER  ENTERED  BY  USER 

STRING  VARIABLE  FOR  FILE  READIN  OF  SIGMA  Y  (TABLE  LOOKUP) 
CROSSUIND  CONCENTRATION  FACTOR 

ASSIGNMENT  OF  LEFT  2  CHARACTERS  OF  INPUTTED  YEAR  (CENTURY) 

CROSSWIND  COORDINATE  OF  LINE  ENDPOINT 

CROSSWIND  COORDINATE  OF  LINE  ENDPOINT 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 

control  character  •for  prowriter  printer  (condensed  mode) 

CONTROL  CHARACTER  FOR  PROWRITER  PRINTER  LINE  LENGTH 

CONTROL  STRING  FOR  PROWRITER  PRINTER  LINE  LENGTH 

CROSSUIND  POINT  SPACING  INTERVAL  FOR  INTEGRATION 

CROSSUIND  POINT  DISPLACEMENT  FOR  INTEGRATION 

DOWNWIND  INTERCEPT  OF  PLUME  ENVELOPE  LINE 

ASSIGhMENT  OF  RIGHT  2  CHARACTERS  OF  INPUTTED  YEARdOO  YRS) 

DOWNWIND  CONCENTRATION  FACTOR 

DTK 7)  TEMP  FACTOR  -  WEEKDAY  (30’/.  ACT  =  .3  «  10) 

DOWNWIND  COORDINATE  OF  LINE  ENDPOINT 
DOWNWIND  COMPONENT  OF  LINE  ENDPOINT 
INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 


NAME 

TYPE 

D3 

REAL 

D4 

REAL 

J 

COUNTER 

J1 

COUNTER 

K 

INTEGER 

KF 

INTEGER 

KG 

INTEGER 

KH 

INTEGER 

KJ 

INTEGER 

L 

REAL 

LI 

REAL 

L2 

REAL 

M 

INTEGER 

M* 

STRING 

) 

INTEGER 

Ml 

INTEGER 

ND(  I ) 

REAL 

NP 

INTEGER 

P2 

REAL 

PC<I) 

REAL 

PG 

INTEGER 

PI 

REAL 

Q(P> 

REAL 

QC(1) 

REAL 

QD(  1 ) 

REAL 
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VARIABLE  LIST 

DESCRIPTION 

DOWNWIND  DISTANCE  USED  TO  COMPUTE  SO 

INTERMEDIATE  VALUE  USED  IN  COORDINATE  ROTATION 

P/D  Class  INCREMENTAL  INDEX  3  CLASSES  (TABLE  LOOKUP) 

COUNTER 

GENERAL  COUNTER 

Y  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

Y  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPKICS 

X  -  ENDPOINT  IN  SCREEN  COORDINATES  FOR  GRAPHICS 

LINE  SOURCE  LENGTH 

UNCLIPPED  LINE  SOURCE  LENGTH 
LENGTH  OF  CLIPPED  LINE  SOURCE 

ASSIGNED  INTEGER  VALUE  OF  STRING  MONTH  i  .e  .■ January* < H t3) 
USER  INPUT  MONTH  STRING 

MX( 1 2)  TEMPORAL  FACTOR  -  MONTH  (40X  ACTIVITY  =.4  #  10) 
MONTH  — REDUNDENT  WITH  *M* 

ND< I )  GAUSSIAN  EXPONENTIAL  VALUE  (O-I)  TABLE  LOOKUP 
NUMBER  OF  POINTS  IN  LINE  INTEGRATION 
STABILITY  INDEX  FOR  TABLE  LOOKUP 
POLLUTANT  CONCENTRATION  FOR  SPECIES  I 
PASOUILL/GIFFORD  STABILITY  CLASS 
PI  *  3.1415? 

0(5)  INTERPOLATED  EMISSION  RATE  —  GM/S  (5  POLLUTANTS) 
CROSSUIND  COMPONENT  OF  QUEUE  ENPOINT 
CROSSUIND  COMPONENT  OF  QUEUE  ENDPOINT 
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NAME 

TYPE 

DESCRIPTION 

QF 

REAL 

REDUCED  EMISSION  RATE  FOR  CLIPPED  LINE 

RC(1) 

REAL 

-CROSSUIND  COMPONENT  OF  QUEUE  ENDPOINT 

RD(  I ) 

REAL 

DOUNUIND  COMPONENT  OF  QUEUE  ENDPOINT 

RR 

COUNTER 

COUNTER  FOR  RECEPTORS 

S 

REAL 

SLOPE  OF  LINE  SEGMENT 

SG 

REAL 

SIGMA  Y  VALUE  USED  TO  COMPUTE  POINT  SPACING 

TE 

real 

TE<5)  -  TOTAL  EMISSIONS  -  SUM  OF  *Q’  <5  POLLUTANTS) 

TF 

INTEGER 

EQUIVALENT  HOURS  OF  FULL  POUER  OPERATION 

TH 

REAL 

WIND  ANGLE  IN  RADIANS 

W/.<U1 ) 

INTEGER 

UX<5)  temp  -factor  -  monthweek  (30X  activity  =  .3  *  10) 

W1 

INTEGER 

WEEK 

ws 

REAL 

USER  INPUT  WIND  SPEED 

US 

REAL 

WIND  SPEED 

x$ 

STRING 

READ  IN  ■*’  COORD  STRING  FOR  RECEPTOR  -  8  CHAR  LONG 

X2 

REAL 

■X'  COORDINATE  OF  OTHER  LINE  SOURCE  ENDPOINT 

XR 

REAL 

■X*  COORDINATE  OF  RECEPTOR 

Y$ 

STRING 

READ  IN  * Y*  COORD  OF  RECEPTOR  RANDOM  ACCESS  8  CHAR  LONG 

YO 

REAL 

INITIAL  PLUME  SIGMA  Y 

Y1 

REAL 

•Y*  COORDINATE  OF  ROAD  ENDPOINT 

Y2 

REAL 

"Y*  COORDINATE  OF  OTHER  ENDPOINT  OF  ROAD 

YR 

REAL 

•Y*  COORDINATE  OF  RECEPTOR 

YR* 

STRING 

USER  INPUT  OF  ’YEAR" 

YT 

REAL 

TABULATED  SIGMA  Y  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKUP 

ZO 

REAL 

INITIAL  PLUME  SIGMA  Z 

NAME 


TYPE 


DESCRIPTION 
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VARIABLE  LIST 

ZQ  INTEGER  BOOLEAN  CONTROL  <0  or  1)  IF  INPUT  ERROR  IN  DATE,  WEATHER 

ZT  REAL  TABULATED  SIGMA  Z  VALUES  ASSIGNED  FOR  P/G  TABLE  LOOKUP 
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#***»***»*»****••»*»•»•***•»•**»*•*»#•»*•*«•*«*»#*•#«•»«•*«*«•#«»«*»«•«**#**••* 
*  • 

*  SPECIAL  LINE  SOURCE  DISPERSION  PROGRtfl  # 

*  • 
«**•**•*«**»*****#**•*••*•«•««•*##*•*•«#*«******•«**•*«*•*#•«•*•»»•***•***»»•#* 


10  DIM  1N*<84>,  F<5,  5),  MXC12),  W/.<5>,  Fl<15>,  DX<7>,  HX<24),  FM*(1B) 

12  DIM  ND<40) ,  TC<5,  5),  2TC100,  3> ,  YT( 100 ,  3),  QC(1),  QD(1),  RCC1),  RD<1) 
15  DIM  TE<5),  F*<6>,  Q<5) ,  PC<5),  MF*<5>,  GM*<7> 

20  OPEN  ’AIRF1LE.TXT’  FOR  INPUT  AS  #1 
30  OPEN  ’TEMPA1RR.TXT"  FOR  INPUT  AS  *2 
40  OPEN  ’TEMPAIRQ.TXT’  FOR  INPUT  AS  #3 
50  HOURN  =  0 

60  INPUT  ’SCREENING  -  'S'  OR  REFINED  -  ' R' ’ ;  BAT* 

70  GOSUB  15070:  IF  BAT*  <>  ’S’  #4D  BAT*  <>  ’R’  THEN  60 
80  IF  BAT*  =  ’S’  THEN  85  ELSE  OPEN  ’I’,  #6,  ’WEATHER. DAT’ 

85  LPRINT  CHR*( 27) ;  CHR*<81) 

86  WIDTH  ’ LPT  1 : ’ ,  132 

90  PI  =  3.14159:  TWR  =  1 :  J1  =  0 :  VA  =  0 
92  '  ON  ERROR  GOTO  13000 

95  GOSUB  1470 

107  FOR  A  =  1  TO  5:  TE<A)  =  0:  NEXT  A 

115  GOSUB  2840:  '  SET  UP  FOR  INTERP  OF  GAUSS  CURVE 

116  GOSUB  2960:  '  READ  INTERPOLATION  TABLE  FOR  SIGMAS 

119  GOSUB  1590:  '  INPUT  TIME  **ID  WEATHER 

120  IF  HOURN  <  1  THEN  GOSUB  5150:  '  SETUP  AND  PRINT  REPORT 

124  GOSUB  3900:  '  INPUT  RECEPTOR  LOCATION 

125  GOSUB  1190:  '  ZELLER  CONGRUENCE  LAW 

126  GOTO  1020:  '  READ  SOURCE 

127  GOSUB  1800:  '  TEMPORAL  FACTOR  CALCULATION 

128  GOSUB  1530:  '  TEMPERATURE  INTERPOLATION 

129  GOSUB  3700:  '  THETA  CONVERSION  FROM  RADIAN  TO  DEGREES 

130  GOSUB  13200:  '  CALCULATE  rf*ID  PLOT  POINTS  OF  THE  RUNWAY 

131  GOSUB  12000:  '  CONCERT  NUMBER  TO  CORRECT  FORMAT 

132  GOSUB  13400:  '  CALCULATE  Q<1>  THROUGH  Q<5> 

133  GOSUB  2600:  '  DISPERSION  SUBPROGRFtfl 

134  GOTO  126:  '  GET  NEXT  RUNWAY  ^ID  QUEUE 
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»*«*»****»»**•**•«*•*••****•*«»*••••*••#•«*«*«#•«*•••«*»**••*•«*«••••••#••••««• 


«  « 

*  NAME :  FILEREAD  * 

*  FUNCTION:  READS  IN  SOURCE  DATA  FILES  • 

*  CALLED  FROM:  f-WIN  —  f-WIN  PROGRAM  « 

*  CALLS:  NO  OTHER  ROUTINES  « 

«  • 


»#**##**********»*»##*##*********#*#*»*»#*#**»*#****##**##«***#*««*«#*#«■**#*#«# 


r 

[ 


1020  R  =  R  ♦  1 

1040  RE  =  R  -  1 

1045  IF  EOF(l)  THEN  13000 

1050  INPUT  H2,  IN* 

1052  INPUT  #3,  ON* 

1054  K  =  1 

1055  FOR  A  =  1  TO  LEN(QN*)  STEP  8:  IN*<K>  =  M1D*<QN*,  A,  8):  K  *  K  ♦  1:  NEXT  A 

1054  FOR  A  =  1  TO  LEN< IN*)  STEP  8:  1N*(K>  =  MID*(1N*,  A,  8):  K  =  K  ♦  1:  NEXT  A 

1045  HF  *  8740 

1070  K  =  0:  FOR  T  =  2  TO  1  STEP  -1 :  FOR  P  =  1  TO  5:  K  =  K  +  1 :  F(T ,  P)  = 

VAL<IN*<K))s  NEXT  P:  NEXT  T  1080  FOR  T  =  1  TO  2:  FOR  P  =  1  TO  5: 

F<T ,  P)  =  F(T ,  P)  /  40:  NEXT  P:  NEXT  T 
1090  FOR  A  =  11  TO  78:  INPUT  HI,  IN*<A) :  NEXT  A 
1100  FOR  K  =  1  TO  7:  LET  DX<K)  *  UAL(IN*(K  ♦  30)):  NEXT  K 

1110  FOR  K  =  1  TO  5:  LET  UX(K)  =  UAL(IN*<K  ♦  37)):  NEXT  K 

1120  FOR  K  =  1  TO  12:  LET  MX(K)  =  VAL<IN*(K  ♦  42)):  NEXT  K 

1130  FOR  K  =  1  TO  24:  LET  HX<K)  =  YAL< IN*(K  ♦  54)):  NEXT  K 

1142  LET  H  *  VAL< 1N*(28) ) 

1151  Cl  =  V)AL( IN*(20) ) :  RC<0)  =  Cl:  C2  =  UAL( IN*< 22) ) :  RC(1)  =  C2 

1152  D1  =  VAL<  IN*(21 ) ) :  RD<0)  =  01:  02  =  VAL<  IN*< 23) ) :  RD<1)  =  D2 

1154  QD<  0 )  =  L*AL<  IN*<  25) ) :  QD<  1 )  =  VAL<IN*<27)> 

1157  QC(0)  =  VAL<1N*<24)) :  QC<1)  =  VAL(1N*<24)) 

1140  LN  =  SQR<  <  <C2  -  Cl)  A  2  ♦  <D2  -  Dl)  A  2)  /  1400) 

1145  YO  =  VAL<  IN*(  29) ) :  20  =  L>AL<  IN*(  30 ) ) 

1173  PT  =  VAL< IN*( 24) ) 

1174  X  =  FRE(O) 

1175  GOTO  127 
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***»*»»**»*******»#•»*«*•**«»«*«*«•*••««**•••****•**•**•*•*•*•*»***•••«*««*««** 


*  * 

*  :  DAY  * 

*  FUNCTION:  USES  ZELLER'S  CONGRUENCE  LAW  TO  DETERMINE  DAY  OF  WEEK  * 

*  FROM  DATE  » 

«  CALLED  FROM:  rt^lN  —  hWIN  PROGRAM  • 

*  CALLS:  NO  OTHER  ROUTINES  # 

«  « 


♦a#****#**##**#*#*#*##*#*****#*****#*###******#***#):*****#************###****## 

1190  CLS 

1200  C  =  VAL<LEFT$<YR*,  2)):  D  =  VAL<R1  GHT*(YW ,  2)) 

1210  GOSUB  1340 

1220  Ml  *  1NT <M) :  WJ  =  INT<FC  /  7)  ♦  1 :  HI  =  INT(HR) 

1230  M  =  M  -  2:  IF  M  <  1  THEN  D  =  D  -  1:  M  =  M  ♦  12 
1240  IF  D  <  0  THEN  D  =  99  ♦  Di  C  =  £  -  1 

1250  X  =  < INT <2.6  *  M  -  .2  *  .00001  )  ♦  FC  ♦  D  ♦  I NT <D  /  4  ♦  .00001  )  ♦ 

1NT < C  /  4  ♦  .00001  )  -  <2  *  C>)  1260  Y  =  X  /  7 
1270  Z  =  ABS<Y  -  INT<Y  ♦  .00001)): 

1280  DT  =  INT < 7  *  2  ♦  .00001  ): 

1290  DT  =  DT  ♦  1 
1330  RETURN 

**«««««*«*««*««****«#*«#•***#*#*»#*»*»**»»*»**•»*»*•**»»*•*•**•«•»••*»*«•*«*•«« 


*  * 

*  f**1E:  MONTH  * 

*  FUNCTION:  ASSIGNS  MONTH  INDEX  M  FOR  SUBROUTINE  DAY  * 

*  CALLED  FROM:  HWIN  —  MfcAlN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  « 


#*»***»***»»»»»**»*«*•*»»**«»**«••*#*•*•*•*«»**»*»••*•***«******•*•«****««****• 


1337  M  =  13 


1340 

IF 

LEFT*<M*,  3) 

S 

•JAN' 

THEN 

M 

= 

1 

1350 

IF 

LEFT*<M*,  3) 

=5 

■FEB" 

THEN 

M 

= 

2 

1360 

IF 

LEFT*<M*,  3) 

= 

•MAR" 

THEN 

M 

= 

3 

1370 

IF 

LEFT$<M*,  3) 

S 

■APR* 

THEN 

M 

= 

4 

1380 

IF 

LEFT*(M*.  3) 

= 

•MAY" 

THEN 

M 

= 

5 

1390 

IF 

LEFT*<M*,  3) 

= 

■JUN* 

THEN 

M 

6 

1400 

IF 

LEFT*(M* ,  3) 

= 

■  JUL* 

THEN 

M 

7 

1410 

IF 

LEFT*(M* ,  3) 

= 

■AUG' 

THEN 

M 

= 

8 

1420 

IF 

LEFT*<M*,  3) 

= 

•SEP* 

THEN 

M 

5= 

9 

1430 

IF 

LEFT*<M*,  3) 

s 

■OCT' 

THEN 

M 

= 

10 

1440 

IF 

LEFT*<M*,  3) 

= 

■NOV* 

THEN 

M 

3= 

11 

1450 

IF 

LEFT$<M* ,  3) 

= 

■DEC* 

THEN 

M 

= 

12 

1460  RETURN 
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•a*****#*###***####*###*****#**#****#***********#*****#*#######***##**#**#****# 


«  « 

*  NAME :  WEEK  * 

*  FUNCTION:  SETS  UP  TABLE  OF  NAMES  OF  DAYS  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGR^I  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


a****************************************************************************** 
1470  FOR  A  *  0  TO  6 :  READ  F*<A) :  NEXT  A 

1480  DATA  *  SUNDAY' , ‘MONDAY* , "TUESDAY* , "WEDNESDAY* , ’THURSDAY" , *  FRIDAY" , 
■SATURDAY*  1490  RETURN 

•**•*****•***•«•*«*«««*••••*«••**«•««»**»••«**»••*«•«•««*«*••«*••*•*««««*•«*•«* 


*  * 

*  l**IE:  EMISSIONS  * 

*  FUNCTION:  PUTS  EMISSIONS  INTO  ARRAY  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  # 

*  * 


«)HHH(***#***#***#**»»*#*#********#*******#*******#*****#*#****»**#*«#*##**#*#*# 


1530  FOR  P  =  1  TO  5:  Q<P)  =  F<1,  P)  *  TF :  NEXT  P:  RETURN 
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**«««*«•*•*«**«***•«*«•«••«**•«««•««•*••**•••*•««•«*«•*«•*«•«««•••**««««••••«*« 


«  * 

#  WWE:  INPUT  * 

»  FUNCTION:  INPUT  OF  METERCLOGY  AND  DATE  FROM  KEYBOARD  * 

*  CALLED  FROM:  t-WIN  —  MAIN  PROGRAM  * 

*  CALLS:  CONDITIONALLY  CALLS  THE  FILE  INPUT  VERSION  OF  THIS  • 

#  ROUTINE  * 

»  * 

*•»****»****«««•*•«•**««•«•*•••*•••»****••«*•***••*«*««*«••*•*•••««*«**•*««««*« 

1590  IF  BAT*  =  *R"  THEN  2000 

1592  CLS  :  LOCATE  3,  10:  INPUT  ‘YEAR  =  ' ;  YR*:  IF  2Q  >  0  THEN 

RETURN  1593  LOCATE  5,  10:  INPUT  “MONTH  =  * ;  M* 

1594  GOSUB  15000:  GOSUB  1337:  IF  ZQ  >  0  THEN  RETURN 

1595  IF  M  =  13  THEN  1593:  '  CHECK  MONTH  IS  IN  BOUNDS 


1596  LOCATE  7,  10:  INPUT  “DAY  OF  MONTH  =  FC:  IF  ZQ  >  0  THEN  RETURN 

1610  LOCATE  11,  10:  INPUT  “HOUR  OF  DAY  (1-24)  =  HR:  IF  ZQ  >  0 

THEN  RETURN 

1630  LOCATE  13,  10:  INPUT  ’WIND  SPEED  (M/S)  =  *;  WS:  V=WS:1F  V  <  1 

THEN  V  =  1 

1631  IF  ZQ  >  0  THEN  RETURN 

1635  LOCATE  15,  10:  INPUT  'WIND  DIRECTION  (DEG  N)  =  * ;  W:  IF  ZQ  >  0 

THEN  RETURN  1640  LOCATE  17,  10:  INPUT  'P/G  CLASS  (2-5)  =  * ;  PG : 

IF  ZQ  >  0  THEN  RETURN  1641  IF  PG  >  5  THEN  GOTO  1640 
1650  CLS 
1660  ZQ  *  0 

1665  PRINT  “1 .YEAR  ■  *  j  YR* 

1670  PRINT  *2. MONTH  =  *  ;  M* 

1675  PRINT  "3. DAY  OF  MONTH  =  * ;  FC 
1678  IF  HR  )  24  THEN  HR  =  24 
1680  PRINT  '4. HOUR  OF  DAY  =  * ;  HR 
1685  PRINT  ’ 5 .WIND  SPEED  =  ■  ;US 
1690  PRINT  *6. DIRECTION  =  * ;  W 
1695  PRINT  *7.PG  CLASS  =  ' j  PG 

1700  INPUT  "ARE  THESE  CORRECT  (Y  OR  N)*;  AN* 

1701  IF  PG  <  2  THEN  PG  =  2 

1703  IF  AN*  =  *Y*  THEN  RETURN 

1704  ZQ  =  ZQ  ♦  1 

1705  INPUT  ‘CHANGE  WHICH  VALUE';  FN 

1706  CLS 

1710  ON  AN  GOSUB  1592,  1593,  1596,  1610,  1630,  1635,  1640 

1711  ZQ  =  0 
1715  GOTO  1650 

#***»****#**********#***#**#****«*«********#*********#**#*******#«#*****«*###** 


*  * 

*  NAME :  DUTY  * 

*  FUNCTION:  CALCULATE  THE  CORRECT  TEMPORAL  FACTOR  * 

*  CALLED  FROM:  W»1N  —  f*UN  PROGRFtfl  « 

*  CALLS:  NO  OTHEF'  ROUTINES  * 

*  « 


«***»«****»***»«***»*•»*•**»*»»»•**•»»**««»••*****«««*******«»«««•*•*•»•*«***•* 
1800  TF  =  MX(M1 )  *  W/(W1)  «  DX(DT):  TF  =  TF  *  H/.(H1  +  1):  RETURN 
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«**«*•««««««»#•*»****»•******»*»»*•**••»•«•»*•*«•*••••*••••*«••*•••*•*••«•••••* 


•  • 

«  NAME :  WEATHER  « 

*  FUNCTION:  FILE  VERSION  OF  INPUT  SUBROUTINE  • 

*  CALLED  FROM:  INPUT  —  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


•  atHUHUHHHHHHUHf*##***#*******#*#***#####**#*********###*#*#*#***#******##***#** 

2000  IF  E0F<6)  THEN  16000 
2010  INPUT  #6,  ENP< 

2015  IF  ENP<= ■ *  THEN  GOTO  2000 

2020  YR<  =  MID<<ENP<,  1,  4):  YR  =  VAL<YR<) 

2030  M*  =  MID*<ENP*,  5,  3):  GOSUB  1337 
2040  FC  =  VAL<MID<<ENP<,  8,  2)) 

2050  HR  =  VAL<MID<<ENP< ,  1C,  2)) 

2060  TEMP  =  VAL<MI D<<  ENP< ,  12,  3)) 

2070  US  =  VAL<MJD<<ENP<,  15,  2))  *  .514668 
2080  U  =  VAL<MIM<ENP< ,  17,  3)) 

2090  PG  =  VAL<RIGHT<<ENP< ,  1>) 

2100  V=WS : I F  US<1  THEN  V=1 
2120  RETURN 

***•««•**«•«*«****•••*•*•«*•**••«••«•***«••**«*********««**•«••««*•***••••••*•• 


*  * 

*  NAME:  DISPERSION  * 

*  FUNCTION:  CONTROL  LOOP  FOR  ALL  DISPERSION  CALCULATIONS  * 

*  CALLED  FROM:  MAIN  --  MAIN  PROGRAM  * 

«  CALLS:  DRAW,  DUTY,  ROTATE,  LENGTH,  DELTA,  CONC,  PRINT  * 

*  « 


********##**###**#***#**#»*###**#*#*#**#**#**##*#****»#*#**#*■*#***#***»«****#*# 

2600  GOSUB  4510 

2620  RX  =  XR:  RY  =  YR 

2705  GOSUB  3700 

2740  IF  PG  >  5  THEN  PG  =  5 

2750  IF  PG  <  2  THEN  PG  =  2 

2760  GOSUB  2768:  GOSUB  3460:  GOSUB  3550:  GOSUB  12000:  RETURN 
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*##»*#*##**#***###**#*#*##***♦####»*****#***********»****#*#****»**#****#«*«**# 


«  • 

*  hWiE:  CLIP  * 

*  FUNCTION:  CLIPS  LINE  SEGMENT  FOR  FASTER  COMPUTATION  « 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  LENGTH,  ENVELOPE,  PREPAIR,  SIGMA  » 

*  # 


««•••**««******•***«**«*•**«•*»****#••**•*••«**»*»*•**•***•***«*•••««•••*•**••« 

2768  IF  Cl  >  C2  THEN  DU  =  C2:  C2  =  Cl :  Cl  =  DU:  DU  =  D2:  D2  =  D1 :  D1  =  DU 
2772  GOSUB  3340:  LI  =  L 
2774  GOSUB  3760 

2778  IF  Y1  >  0  AND  XI  >  Cl  FND  XI  <  C2  AND  Y2  >  0  THEN  Cl  =  XI  :  D1  =  Y1 

2782  IF  Y1  >  0  AND  X2  >  Cl  **ID  X2  <  C2  AND  Y2  >  0  THEN  C2  =  X2:  D2  =  Y2 

2786  GOSUB  3340:  L2  =  L 
2788  OF  =  L2  /  Ll 

2790  IF  ( D1  +  D2)  <  ABS((C1  ♦  C2)  *  AC)  THEN  DS  =  -2:  GOTO  2810 

2792  IF  GIF  =  0  THEN  DS  =  -2:  GOTO  2810 

2800  GOSUB  3340:  GOSUB  3390:  X  =  DS:  GOSUB  3060:  SG  =  SY 
2810  RETURN 

#•**«••**••»*••*•**••#****•***»**••»«**•••**••«•«*•*•«*••*****•*****«••*•****•* 


•  * 

*  NAME :  GAUSSTABLE  * 

*  FUNCTION:  CALCULATE  THE  GAUSSIFW  PLUME  TABLE  * 

*  CALLED  FROM:  HW1N  --  HW1N  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  « 


•«**«•«««•«•««*«••*»»«»»*»»••*»»•»••••*••»***•*««*****#«•«•#•«*#«**#**•**•#**•# 
2840  FOR  I  =  0  TO  40:  ND<I)  =  EXP<-.005  *  I  *  1):  NEXT  1:  RETURN 
*••*»•****»#»*»*•»#**»»#•»»»»•»»#»•»***••*»•••***•«•»«•*«»•««**»«*«»«•«****•*•* 


#  * 

*  NAME:  NORMAL  * 

*  FUNCTION:  CALCULATE  THE  NORW*L  DIST  CURVE  ♦ 

*  CALLED  FROM:  MAIN  --  FW1N  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


••«•**•*#«**•**•«••*•*«•«•««••***«*•*•••*•«••«•*«•*««««*»*****«**•*•****•**«*«* 

2890  IF  ABS(X)  >  4  THEN  FX  =  0 :  GOTO  2950 
2900  X  =  ABS(X)  *  10 
2910  IX  =  I NT (X) 

2920  DX  *  <X  -  IX) 

2930  FA  =  ND(IX)  -  NDCIX  ♦  1) 

2940  FX  =  ND( IX) -  FA  *  DX 
2950  RETURN 


-  C76  - 

*#«***»*»***«***«**#*************««#****«***#«#****«*»»*«***«*#**«*****###*#### 


*  * 

*  NAME:  SI GMATABLE  * 

*  FUNCTION:  READS  IN  THE  SIGMA  TABLE  INFORMATION  FROM  FILE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGR^I  * 

*  CALLS:  NO  OTHER  ROUTINES  « 

*  » 


*••«•««*««•«*«*«••*«*«»•«*•«*«*•««*«*««««•«*«*«««•»••«*•*»«*««•«•«*•*««••«»«««« 

2960  OPEN  "SIGMA*  FOR  INPUT  AS  *14 
2980  FOR  J  =  0  TO  3 

2990  FOR  I  =  0  TO  100 

3000  INPUT  1*4,  A*,  8$:  2T(1,  J)  =  VAL<A*>:  YT(I,  J!>  =  VAL<B*) 

3010  NEXT  1 

3020  NEXT  J 

3030  CLOSE  **4 

3040  RETURN 


ftftftftftftftftftftftftftftftftftftftftftftftftftftvftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft* 


*  « 

*  NAME :  SIGMA  ft 

ft  FUNCTION:  INTERPOLATION  FOR  SIGMAS  * 

«  CALLED  FROM;  DISPERSION  --  DISPERSION  SUBROUTINE  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft*#* 

3060  IF  X  )  9999  THEN  X  *  9999 
3070  X  =  ABS<X) 

3075  P2  =  PC  -  2 
3080  IX  =  INT (X  *  .01) 

3090  DX  =  X  *  .01  -  IX 

3100  DZ  =  ZTC1X  ♦  1,  P 2 )  -  ZT(IX,  P2) 

3110  DY  =  YTCIX  ♦  1,  P2)  -  YT<IX,  P2> 

3120  SZ  =  ZT ( IX ,  P2)  ♦  DZ  *  DX :  IF  SZ  >  5  *  ZO  THEN  SR  =  ZO  /  SZ : 

SZ  =  SZ  ♦  SR  *  SR  «  .5:  GOTO  3130  3125  SZ  =  SGR(SZ  *  SZ  ♦  ZO  *  ZO) 

3130  SY  =  YT< IX ,  P2>  ♦  DY  *  DX:  IF  SY  >  5  »  YO  THEN  SR  =  YO  /  SY: 

SY  =  SY  +  .5  *  SR  *  SR:  GOTO  3140  3135  SY  =  SQRCSY  ft  SY  +  YO  «  YO) 

3140  RETURN 

«*«*•*•***•««*•««*•*«•«««««««•««««•««««««•«***««*«««*•»««*«*««««««••««*«•**««•« 


*  * 

*  NAME :  LENGTH  * 

«  FUNCTION:  CALCULATE  LENGTH  FROM  COORDINATES  » 

•  CALLED  FROM:  DISPERSION  --  DISPERSION  SUBROUTINE  « 

«  CALLS:  NO  OTHER  ROUTINES  « 

«  * 


ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft** 

3340  DX  *  C2  -  Cl:  IF  DX  =  0  THEN  DX  =  .000001 
3350  DY  *  D2  -  D1 :  IF  DY  =  0  THEN  DY  =  .000001 
3360  S  =  DY  /  DX 
3370  L  =  SQR< DX  *  DX  ♦  DY  *  DY) 

3380  RETURN 


a#*#*####*##*###*#*##**#***##*****#***#***#****##***#*#*******************#**#* 


*  • 

*  hWME:  PREPAIR  * 

*  FUNCTION:  CLIP  AND  SCREEN  SPECIAL  LINE  SOURCE  « 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


a****##*#****#**#*#*****************#*#**************#**********#*****)********# 
3390  D3  =  Dl  +  <RX  -  Cl)  *  S 

3400  IF  D1  <  RY  AND  D2  <  RY  THEN  DS  =  -2:  GOTO  3440 
3410  IF  RX  >=  Cl  AND  RX  <=  C2  THEN  DS  =  D3  -  RY:  GOTO  3440 

3420  IF  ABS< RX  -  Cl)  <=  ABS(RX  -  C2)  AND  D1  >=  RY  THEN  DS  =  Dl  -  RY :  GOTO  3440 

3430  DS  =  D2  -  RY 

3440  IF  Cl  >  C2  THEN  DS  =  -2 

3450  RETURN 

a*****###**##*******#*#***##*****#********#***#*#*#*#*##**#******#*******#***#* 


*  » 

*  NAME:  DELTA  * 

*  FUNCTION:  BREAK  LINE  INTO  POINTS  * 

«  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


**#**«#****#**#*•»*******•***«*****»***«•******«**»*«#»****»*«******»•**«*»••»• 

3460  NP  =  ABS<  C2  -  Cl) 

3470  IF  NP  <  ABS(D2  -  Dl)  THEN  NP  =  ABSCD2  -  Dl) 

3480  IF  SG  =  0  THEN  NP  =  1 :  GOTO  3520 

3490  NP  =  INT <NP  /  SG  +  ,5)*2 

3500  IF  NP  <  1  THEN  NP  =  1 

3510  IF  NP  >  200  THEN  NP  =  200 

3520  Cl  =  <C2  -  Cl)  /  NP 

3530  Dl  =  <D2  -  Dl)  /  NP 

3540  RETURN 


-  C78  - 

#•»**«»***««*•*****«*«•«•***«•*«*••*•••****«»•***•«*•«•»•«•••«#••••****•*••*•*« 


* 


« 


*  NAME : 

«  FUNCTION: 

*  CALLED  FROM: 

*  CALLS: 


CONC 

CALCULATE  CONCENTRATION 
DISPERSION  —  DISPERSION  SUBROUTINE 
NO  OTHER  ROUTINES 


« 

« 

« 

« 


« 


*#**»»***#***«*#»*#*#*****#***#*#*»*****«*#«*««**»***»#*#**»*#»#***«***##**«*#* 


3550  G  =  0 

3560  IF  DS  <  0  THEN  GOTO  3680 

3570  CP  =  Cl  -  .5  *  Cl  -  RX 

3580  DP  =  D1  -  .5  «  DI  -  RY 

3590  FOR  I  =  1  TO  NP 

3600  CP  =  CP  ♦  Cl 

3610  DP  =  DP  ♦  Dl 

3615  IF  DP  <  0  THEN  GOTO  3660 

3620  X  =  DP:  GOSUB  3060 

3630  X  =  H  /  SZ:  GOSUB  2890:  D  =  FX 
3640  X  =  CP  /  SY:  GOSUB  2890:  C  =  FX 
3650  G=D*C/SY/SZ  +  G 
3660  NEXT  I 

3670  G  =  G  «  QF  /  PI  /  NP 
3680  RETURN 


-  C79  - 


***«****«*•*•**»*»•«•«*»«**«•***•**«*««*«»*•*•«****•***••**•••*•*•***•«**»•••• 


* 

*  NAME: 

«  FUNCTION: 

*  CALLED  FROM: 
«  CALLS: 

* 


ROTATE 

CALCULATE  AND  ROTATE  COORDlhWTES  SO  WIND  IS  OUT  OF  NORTH 
DISPERSION  —  DISPERSION  SUBROUTINE 
NO  OTHER  ROUTINES 


*#***************»****»******»******•«**••*»**•*•***••««*•*•••«*«•*«««*«*•••««« 


3700  TH  =  PI  /  180  «  (-U):  CO  =  COS(TH) :  SI  =  SIN(TH) 

3701  RX  =  XR:  RY  =  YR 

3710  C3  =  Cl  *  CO  ♦  D1  *  SI :  D1  =  D1  «  CO  -  Cl  *  SI :  Cl  =  C3 

3720  C4  =  C2  *  CO  +  D2  *  SI :  D2  =  D2  *  CO  -  C2  «  SI :  C2  =  C4 

3730  C4  =  RX  *  CO  ♦  RY  *  SI  :  RY  =  RY  *  CO  -  RX  *  SI  :  RX  =  C4 

3740  Cl  =  Cl  -  RX:  C2  =  C2  -  RX:  D1  =  D1  -  RY:  D2  =  D2  -  RY:  RX  =  0 :  RY  =  0 

3750  RETURN 

•**••««*•«*««*••«**•**«««««••*«*•«•**•*•«*«**«•*«***«•*«*«***•••«*«•*•«*»«•*••* 


*  • 

«  NAME:  ENVELOPE  * 

«  FUNCTION:  GET  PLUME  ENVELOPE  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


ft******************************************************************************* 

3760  AC  =  1 .5:  IF  PG  =  3  THEN  AC  *  2 
3770  IF  PG  *  4  THEN  AC  *  3 

3780  IF  PG  =  5  THEN  AC  *  4 

3790  CT  =  D1  -  S  *  Cl 

3800  IF  AC  =  -S  THEN  XI  =  Cl :  Y1  =  D1 :  GOTO  3820 

3810  XI  =  -CT  /  (AC  +  S) :  Y1  =  -AC  *  XI 

3815  IF  XI  )  0  OR  Y1  <0  THEN  XI  =  Cl :  YJ  =  D1 

3820  IF  S  =  AC  THEN  X2  =  C2:  Y2  =  D2:  GOTO  3840 

3830  X2  =  CT  /  (AC  -  S) :  Y2  =  AC  *  X2 

3835  IF  X2  (  0  OR  Y2  <  0  THEN  X2  =  C2:  Y2  =  D2 

3840  RETURN 


-  C80  - 

**••*«*•»*•*****••*•**«•*•»*••••••*****•«***••***•••**•*«**•«*•*•**•*•••*«**•«* 

*  « 

*  NAME1.  E-REPORT  * 

«  FUNCTION:  PRINT  EMISSION  REPORT  • 

»  CALLED  FROM:  to IN  —  MAIN  PROGR^I  « 

*  CALLS:  NO  OTHER  ROUTINES  « 

*  « 
*#•***«*****•«**«•«•*****«**«*****«*•••**«*•«***••*•«•««*•••«*•••««•«•«••*•«*«* 

5150  FM* ( 1 )  =  “! - 

—  — - - - .  —  _  _ - —  - _  _  _ _ _ _ _ I  ■ 

5155  FM$< 10)  =  ■!  '  EMISS 

ION  REPORT  j  ■ 

5160  FM*<2>  =  ’ !  INPUTS 

:  outputs  :• 

5170  FM*< 11)  =  ■! 

*  LEFT*(M«,  3)  +  *-*  ♦  R1GHT*< •  *  4  STR*<FC),  2)  4  *-•  4  RIGHT*(YR*,  2) 

4  •  <*  4  LEFT*<STR*(HR) ,  2)  4  ■00" 

5180  FM*<12)  =  '  HR.)  j* 

5200  FM*<3>  =  * !  COORDINATES  OF  SOURCES  <M>  1  INITIAL  !  (AP-42) 

!  EMISSION  RATES  !■ 


5210 

FM*<4)  = 
1 

PM4  (  9  'l  s 

-  ■  1 

-  ■  1 

ORIGIN 

AT  (0 

,  0) 

1 

1 

PARAMETERS<M) 

i 

i 

i  ■ 

• 

, 

5220 

FM<  <  5)  = 

-  ■  l 

REC! 

1 

1 

SIG 

i plume i  sig 

i 

IACFT/1  AIRCRAF 

T  TYPE 

1 

GM/SEC 

1  ■ 

1 

5230 

FM*<6)  = 

<  ■ 

■  1 

«  :  xi 

Y 1 

X2 

Y2  ! 

Y 

i  HT.  :  z 

!  HR  ! 

5240 

FM*<7)  = 

■ 

CO  ! 

HC 

l 

1 

NOX 

I 

1 

SOX  ! 

PART  : ■ 

5250 

FM*<8)  = 

■  1 

- - 

,  , 

5260  LPRINT  Fm<l):  LPRINT  FMf<10>:  LPRINT  FM*<11);  Fm<12):  LPRINT  FM*(9): 
LPRINT  FM*<2):  LPRINT  FM*<9>  5290  LPRINT  FM*<3>:  LPRINT  FM*<4): 

LPRINT  FM* ( 8 ) :  LPRINT  FM*<5>:  LPRINT  FM*<6>;  FM$<7>:  LPRINT  Fm<l) 

5350  FOR  A  =  3  TO  12:  FM$<A)  =  **:  NEXT  A 

5351  X  =  FRE(O) 

5355  RETURN 


*«•***«•««*«««*•»»«»•*»*•••••»»•*•«««•*••«**«•*••*#•••«#**#*••**»***•*»«»•*»»*» 


•  « 

*  f*¥1E:  REPORT  * 

*  FUNCTION:  PRINT  DISPERSION  REPORT  » 

«  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  CALLS:  NO  OTHER  ROUTINES  « 

*  * 


*##**#***«*##***##*###*»**#**#****««***»*«»*«****«******«***«»**«»*«*****»*««** 
5420  X  =  FRE(O) 

5425  FM*<9)  =  R1GHT*C  *  ♦  STR*(R),  4) 

5430  FM*<10)  =  RIGHTiC  *  ♦  STR*(VAL(  IN* (20) ) ) ,  5) 

5440  FM*  <  1 1 )  =  *,*  +  RIGHTiC  *  ♦  STR*(VAL(  1N*<  21 > ) > ,  5) 

5450  FM*<12)  =  RIGHT*C  *  +  STR*(UAL< IN*<22) ) ) ,  5)  ♦ 

5460  FM*<  1  3)  =  R1 GHT*<  ‘  ’  ♦  STR*(L>AL(  1N*<23) ) ) ,  5) 

5470  FM*<14)  =  LEFT*(1N*<29)  ♦  *  * ,  5) 

5480  FM* <  1 5 )  =  LEFT*(1N*<28>  ♦  *  ’,5) 

5490  FM* < 1 6 )  =  LEFT*<IN*<30)  ♦  '  ’,5) 

5491  T1  ■  TI  ♦  1:  IF  TI  /  2  «  1NTCT1  /  2)  THEN  GOTO  5500 
5495  IN*<12>  =  STR*<VAL< IN*< 1 2) >  *  TF) 

5500  Fm<17)  =  R1GHT*C  *  +  IN*(12),  5) 

5510  FM*  < 1 8 )  =  RIGHT*<  *  *  ♦  IN*<11),  19) 

5620  FOR  A  *  1  TO  5:  TE<A)  =  T£<A>  ♦  Q(A) :  NEXT  A 

5700  LPRINT  • !  * ;  FM*<9);  " !  • ;  FM$(10)i  FM*<11);  * !  * ;  FM*(12);  FM*<13);  *  1  * ; 

FM* < 1 4 ) j  *!■;  FM*( 1 5) j  *!*;  FM*<16);  *!*;  FM*(17);  ' ! * ;  FM*(18>;  *  :  *  ; 

5710  FOR  A  =  1  TO  5:  LPRINT  USING  •**.******  * ;  0(A) j  :  LPRINT  ’ i * ;  : 

NEXT  A:  LPRINT 
5720  X  *  FRE<0) 

5730  RETURN 


-  C62  - 

#*#****#*»*»##*#«#*******#*#**#*#****#*#*#*****#**«****#*****#*#***#***#*****»* 


«  • 

*  NAME:  PRINT  * 

«  FUNCTION:  PRINT  CONCENTRATIONS  ON  THE  SCREEN  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

»  CALLS:  NO  OTHER  ROUTINES  « 

*  « 


a*##*#*#***#*****#**#***********#*****###***#**#*****#*****#******#*#****#***** 

12000  FOR  I  =  1  TO  5:  PC<I>  =  PC<I)  ♦  G  *  Q(I)  /  V:  X  =  PC(l): 

NEXT  1 
12010  PRINT 

12030  IF  TWR  <=  1  THEN  60SUB  5420 
12040  RETURN 

#####*##**»##*#######*###**##*#»*#*»***##*#*»*««*******»*«**#*****«#**##**##### 


*  * 

*  NAME:  D-REPORT  * 

*  FUNCTION:  PRINT  DISPERSION  REPORT  * 

*  CALLED  FROM:  DISPERSION  —  DISPERSION  SUBROUTINE  * 

*  AND  MAIN  —  MAIN  PROGRAM  # 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


**••«•*«*•*•***«**••«**••**«*««*•*«••*««*«*•*••«**«*«********•««**«***••**«•*«• 

13000  X  =  FRE(O) 

33002  HOURN  =  HOURN  ♦  1 

13003  IF  TWR  )  1  THEN  13023 

13004  TWR  =  TWR  +  1 

13005  ES*  =  "  ' 

13007  LPRINT  FM$(1) 

13008  LPRINT  ■ 

TOTAL  I  *  ; 

13009  FOR  A  =  1  TO  5:  LPRINT  USING  * .  «MtA A A A  *;  TE<A> ;  : 

LPRINT  ■ 1  * ;  :  NEXT  A 


13010 

FM*<2) 

= 

■  ) 

l 

INPUTS 

1  t 

1  1 

OUTPUT 

1  * 

i 

13011 

FM*  ( 3) 

= 

■  l 

1 

DISPERSION 

i  ■ 

REPORT 

130U 

FM*<1) 

«  i 

i 

l 

13017 

GM*<5) 

= 

V  1 

1 

Iff 

1  i  1 

1 

:  :  no.  :  x  :  y 

1  1 

l  1 

CO 

HC 

NOX  ! 

SOX  ! 

PART  ! ■ 

13018 

Gm<i) 

= 

* :  DATE 

I  HR  IW/SIWD 

!P/GI  RECEPTOR 

1  t 

I  1 

CONCE 

NTRAT10N 

GM/MA3 

1  * 

13019 

GM»<2) 

= 

■  1 

1 

i  !m/s:deg:a=i : 

1  1 

1  1 

I 

13020  LPRINT  FM*<1):  LPRINT  Fm<3>:  LPRINT  FM*<1>:  LPRINT  FM*<2>: 

LPRINT  FM$ ( 1 ) :  LPRINT  GM*<1) 

13022  LPRINT  GM*<2>:  LPRINT  FM*<1>:  LPRINT  GM*<5) 

13023  Gm<3>  =  ■!*  +  LEFT*<M*,  3)  ♦  *-•  ♦  RIGHT*<*  *  ♦  STR*<FC),  2)  ♦  ♦ 

R1GHTVYR*,  2)  ♦  “I*  ♦  LEFT*<STR*<  HR) ♦  *  * ,  3)  ♦  ■ !  *  + 

MID*<STR*(WS)+*  *,  2,3)  ♦  *!*  ♦  RIGHTf  <  *  *  ♦  STRt(W) ,  3) 


-  C83  - 

13024  GM*(4>  =  ■!’  ♦  R1GHT*< ’  *  ♦  STR*<PG) ,  3)  ♦  '!• 

13035  J2*  =  R1GHT*<  *  *  ♦  STR*<RR>  ♦  *  ’ ,  6) 

13037  YR  =  INT <YR) s  XR  =  INT<XR) 

13040  AD*  =  RIGHT*< ’  •  ♦  STR*<XR> ,  5):  AE*  =  RIGHT*<  *  ’  ♦  STR*<YR>,  5) 

13050  GM*<6>  =  J2*  ♦  ♦  AD*  ♦  ’i*  ♦  AE*  ♦*!"♦*  *  ♦  ’!* 

130<S0  LPRINT  GM*<3);  GM*<4);  GM*<6>; 

13070  FOR  X  =  1  TO  5:  LPRINT  USING  ’HH.HHAAAA  PC(X) ;  s  LPRINT  "I*; 

:  NEXT  X:  LPRINT  13074  GOSUB  14700 
13075  FOR  A  =  1  TO  5:  PC<A>  =  0:  NEXT  A 
13100  CLS 

13105  OPEN  ’RECP.TXT*  AS  *4  LEN  =  16 

13106  FIELD  4,  8  AS  X*,  8  AS  Y* 

13107  GET  H4,  RR  +  1 

13108  X  =  VAL<X*):  Y  =  VAL<Y*> 

13109  IF  X  =  0  AND  Y  =  0  THEN  13120 

13110  IF  EOF<4)  THEN  GOTO  13120  ELSE  CLOSE  *1 ;  CLOSE  *2:  CLOSE  *3:  CLOSE  #4: 
OPEN  *  1  * ,  #1,  ’AIRFILE.TXT*:  OPEN  *1*,  *2,  ’TEMPAIRR.TXT’: 

OPEN  *1*,  #3,  ’TEMP  AIRQ.TXT* :  GOTO  124 
13120  CLOSE  #4 

13322  IF  BAT*  =  ’S’  THEN  INPUT  ’INPUT  ANOTHER  HOUR  ’ ;  QQ* :  ELSE  QQ*  =  *Y’ 

13125  IF  QQ*  <>  ’Y*  AND  QQ*  <>  ’N*  THEN  13122 

13130  IF  QQ*  =  *Y*  THEN  CLS:R  =  0:RR  =  O.-CLOSE  HI  : CLOSE  H2:CL0SE  H3:CL0SE  H4: 
OPEN  T,  HI  , ’AIRFILE.TXT’ -.OPEN  ’I",  H2 , ’TEMPAI  RR  .TXT*  :OPEN  ’I", 

H3, ’TEMPA1 RQ  .TXT* 


13132 

IF 

QQ*  = 

’Y’ 

THEN 

IF  BAT*  = 

13133 

IF 

QQ*  = 

•Y* 

THEN 

GOTO 

124 

13135 

IF 

o 

o 

+ 

II 

•N" 

THEN 

CLS  ; 

END 

R’  THEN  GOSUB  1590  ELSE  GOSUB  1650 
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************* *****##*#***##*#**#******#*#**#**##**##*#***#*#*#****«**#*** ,**«** 


* 

» 

« 

* 

« 

* 


NAME : 
FUNCTION: 
CALLED  FROM: 
CALLS: 


RUNWAY 

CALCULATE  DISPERSION  FROM  ACCELERATING  AIRPUWE 
MAIN  —  MAIN  PROGRAM 
NO  OTHER  ROUTINES 


* 

« 

* 

* 


#«»IHf*****»#*#***********#****#*#*##*#*****#**********##********.**##*«###**##** 


13200  G  =  0:  NP  =359:  QI  =  0 

13210  IF  D1  >  D2  THEN  DU  =  D2:  D2  =  D1 :  D1  =  DU:  DU  =  C2:  C2  =  Cl :  Cl  =  DU: 

QI  =  1 

13220  Cl  =  <C2  -  Cl)  /  NP  /  NP:  DI  =  <D2  -  Dl)  /  NP  /  NP 

13240  FOR  I  =  0  TO  NP  -  1 

13250  CP  =  Cl  +  <1  *  1  -  1  +.5)  *  Cl 

13260  DP  =  Dl  ♦  (I  *  I  -  I  +.5)  *  DI 

13265  CU  =  CP  *  CO  -  DP  *  SI  ♦  XR 

13266  DU  =  DP  *  CO  +  CP  *  SI  +  YR 

13267  DU  =  YO  -  DU  *  SM 

13268  CU  =  CU  «  SM  ♦  XO 

13270  IF  DP  <  0  THEN  13305 
13275  X  =  DP:  GOSUB  3060 

13280  X  =  H  /  SZ :  GOSUB  2890:  D  =  FX 
13290  X  =  CP  /  SY:  GOSUB  2890:  C  =  FX 
13300  G=D*C/SY/S2+G 
13305  IF  I  =  0  THEN  KF  =  CU :  KG  =  DU 
13310  NEXT  I 

13320  G  =  G  /  PI  /  (NP  -  1) 

13330  RETURN 

*««***«***«*«»•««««««««•**«**•*«*«•«**••*««****«««•***«•***«•*•«««*•««*«*«•»*«* 


*  * 

»  NAME:  QUEUESET  * 

*  FUNCTION:  SETS  UP  FOR  QUEUE  CALCULATION  # 

*  CALLED  FROM:  MAIN  —  tVUN  PROGRAM  * 

*  CALLS:  NO  OTHER  ROUTINES  * 

«  « 


*#»«»*»*»*#**»»»**»»**»**»***#*##*»***#**«*****#»**#*•»»#*»*#»*****#***»**»**»* 

13400  C2  =  QC(QI):  D2  =  QD(QI):  Cl  =  RC(QI):  Dl  =  RD(Q1) 

13410  FOR  P  =  1  TO  5:  Q(Pl  =  P<2,  P)  *  TF:  NEXT  P 

13420  1N*<20)  =  STR$< C2> :  IN*<21>  =  STRf ( D2) :  IN*<22>  =  STR*(C1):  IN*<23>  = 
STR$(D1 ) 

13430  RETURN 
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a#**#**##******#****#*#****#****#****###*###***##*###*#***#***#*#*###*******##* 


•  « 

*  NAME :  OUTFILE  * 

«  FUNCTION:  PRINT  DISPERSION  RESULTS  TO  A  HOLD  FILE  * 

*  CALLED  FROM:  MAIN  --  MAIN  PROGFU¥t  • 

«  CALLS:  NO  OTHER  ROUTINES  * 

*  « 


««•*«•«****•«**#••***•*««#••#*«***«**•**«**•««**«•«*««««««««•«#•««««**««•««•«** 

14700  '  OPEN  'RECEPTOR*  AS  #4  LEN=I70 
14705  '  IF  J1 <2  THEN  14740 

14720  '  FOR  A  =  1  TO  5:  INPUTK4,  TR(A>:  NEXT  A 

14740  '  FOR  A  =  1  TO  5:TR<A)  =  PC<A)  ♦  TR<A) :  NEXT  A 

14780  '  FOR  A  =  1  TO  5:  PRINT  USING  #4,*##.IMrAA''*  ;TR(A) ; :  NEXT  A 

14800  '  CLOSE  N4 

14805  '  FOR  A  =  1  TO  5:TR*<A)  =  **:  NEXT  A 

1480.S  '  X  =  FRE  <0) 

14810  RETURN 

«•*««*«*•«*«««•*•«*•**•**«***••*«*«*««*«««••«««••*«*•«««*«*««•*•*•«*•««**•*•««« 


*  * 

*  NAME :  CASE  • 

*  FUNCTION:  CONVERT  LETTERS  TO  UPPER  CASE  * 

*  CALLED  FROM:  MAIN  —  MAIN  PROGRFtfi  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  • 


********»**«*«****»********«**»***•*•**«*»*«**«*•*«**•»•**#*****«*»«*«**«««»**« 

15000  FOR  A  =  1  TO  3 

15010  CONVER  =  ASC<MID*<M*,  A,  1>> 

15020  IF  CONVER  >  96  THEN  CONVER  =  CONVER  -  32 
15030  MID*<M*,  A,  1)  =  CHR*<CONVER) 

15040  NEXT  A 
15050  RETURN 


«  * 

*  NAME:  CASE2  * 

*  FUNCTION:  CONVERT  LETTERS  TO  UPPER  CASE  * 

*  CALLED  FROM:  HttlN  —  MAIN  PROGRAM  « 

»  CALLS:  NO  OTHER  ROUTINES  « 

*  • 


«»•**•#•***»»*«*•*«•**»»••#•**«*•«***««•*##*«*•*•*»»#««*«**•*«»»»••«•«*«**••#«• 
15070  CONVER  =  ASC( BAT*) 

15080  IF  CONVER  >  96  THEN  CONVER  =  CONVER  -  32 
15090  BAT*  *  CHR*< CONVER) 

15100  RETURN 
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**#**#*#*#**#**#****#***#»*#»*«**********»■*■*■##**#*##**#*****#*#**#*#****#**#**# 


« 

*  NAME : 

*  FUNCTION: 

*  CALLED  FROM: 

*  CALLS: 


CASE3 

CONVERT  LETTERS  TO  UPPER  CASE 
MAIN  —  MAIN  PROGRAM 
NO  OTHER  ROUTINES 


* 

* 

* 

» 


« 


#****«**#*#****#«**********#*****«*#*«*********«*****#*#*#****#*«*«»«*****#**** 


15110  CONVER  =  ASC<ANf ) 

15120  IF  CONVER  >  96  THEN  CONVER  =  COWER  -  32 
15130  AN*  =  CHR*(CONVER) 

15140  RETURN 


#**«**##*»*#«#*#**»#*#***«******««**#««#*«#«*«#*#*#*«*#«#«*#**#*#**#«#*###***** 


*  * 

*  NAME :  END  WEATHER  * 

*  FUNCTION:  END  PROGRAM  WHEN  END  OF  WEATHER  FILE  IS  REACHED  * 

*  CALLED  FROM:  MAIN  —  httlN  PROGRAM  « 

*  CALLS:  NO  OTHER  ROUTINES  * 

*  * 


it******************************************************************************* 


16000  CLOSE:  CLS  :  PRINT'END  OF  WEATHER  FILE 
16010  END 
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1  REM  ***«•**«•«««*««*«««*««««•»••••••*••««•«*•*««*«««**•«***•««***«•««*«•* 


2  REM  *  * 

3  REM  *  WWE:  weather  * 

4  REM  *  FUNCTION:  produces  weather  -file  tor  refined  model  * 

5  REM  -  CALLED  FROM:  this  is  main  program  * 

6  REM  «  CALLS:  stabclass,  check,  output  * 

7  REM  *  * 


8  REM  •«»*•**«*****•******•*•»••««••**«*•*•«•*««••••••**«•«••*«««••»*«*»•*• 

9  REM 

10  DIM  ENP* < 80 ) ,  FE*<  8) 

20  DIM  TC< 12) ,  CS< 12) ,  DC<12),  SA(12>,  mo*<12> 

25  PASS  «  It  pi  *  3.14159:  oh  =  -1 

26  WD*  =  "27*:  REM  if  first  hour  is  calm  assumed  wind  direction  will  be  U. 

30  FOR  2  =  1  TO  12:  READ  mo*(Z):  NEXT  Z:  REM  names  of  months 

35  DATA  "JAN" , "FEB" ,*MAR" ,"APR" ,"MAY* ,"JUN" ," JUL" ,*AUG" , "SEP" , "OCT" ,"N0V" , "DEC" 
40  FOR  Z  =  1  TO  12:  READ  TC<Z):  NEXT  Z:  REM  daily  change  in  equation  of  time 
50  DATA  -20 .4,1. 8888 ,14. 26666 ,14.17241 ,-.6,-11.931034,-5.53,11.5,20.62,12.43, 
-9.965517,-27.8 

60  FOR  Z  =  1  TO  12:  READ  CS<2):  NEXT  2:  REM  equation  of  time  at  start  of  month 
70  DATA  -192,  -813,-754,-248,171,145,-213,-376,-12,605,980,671 
80  FOR  Z  =  1  TO  12:  READ  DC(Z):  NEXT  Z:  REM  daily  change  in  solar  declination 
90  DATA  .189, .3275, . 368 , . 3506896 , . 232 , .0534482 1 63333 ,-. 31 93333 ,-. 3668965 , 
-.366, -.247931 ,-.055 

100  FOR  2  =  1  TO  12:  READ  SA<Z):  NEXT  Z:  REM  solar  declination  at  start  of  month 
110  DATA  -23.04,-17.2,-7.49,4.18,14.54,21.58,23.09,18.0,8.3,-2.57,-14.14,-21.43 

115  FI*  =  "WX000A.DAT" 

116  INPUT  "LATITUDE  OF  STATION  IN  DEGREES  (e.g.  39.54)  ";  la 

117  INPUT  "LONGITUDE  OF  STATION  IN  DEGREES  (e.g.  112.4)";  LO 

120  OPEN  "C:"  ♦  FI*  FOR  INPUT  AS  HI 

121  IF  PASS  >  1  THEN  127 

125  OPEN  " C LEATHER  1 .DAT"  FOR  OUTPUT  AS  #2 

126  GOTO  130 

127  OPEN  "C:UEATHER1 .DAT"  FOR  APPEND  AS  *2 
130  REM:  IF  EOF < 1 )  THEN  GOTO  300 

140  INPUT  41,  ENP*:  REM  read  NCS  weather  data 
150  FE*  «  MI D*(ENP* ,  1 ,  8) 

160  IF  FE*  =  "99998888"  THEN  GOTO  300:  REM  end  of  file 
165  da*  =  Ml D*( ENP* ,  10,  2) 

170  ws*  =  MI D*< ENP* ,  41,  2):  ws  =  VAL(ws*) 

175  yr*  =  "19*  +  MID*<ENP*,  6,  2) 

180  wdl*  =  MID*(ENP*,  39,  2):  wdl  =  VAL(wdl*);  IF  wdl  >  0  THEN  UD*  =  wdl* 

181  REM  retain  last  direction  when  wind  calm  <36  is  north,  00  is  calm) 

185  LID  =  VAL(UD*):  UDR  -  INT((LID  -  .35  +  RND<1))  »  10):rem  randomize  last  digit 

186  IF  UDR  <  0  THEN  UDR  =  UDR  ♦  360 

187  IF  UDR  >  360  THEN  UDR  *  UDR  -  360 

188  UDR*  =  R1GHT*<"  "  ♦  STR*(UDR) ,  3) 

190  db*  =  MID* (ENP* ,  47,  3):  db  =  VAL(db*) 

200  hr*  *  Ml D*< ENP* ,  12,  2):  hr  =  VAL(hr*) 

205  CE*  =  MID*(ENP*,  14,  3):  CE  =  100  *  VAL(CE*> 

207  IF  CE*  <>  "— *  THEN  CE*  *•  STR*(CE) 

201  IF  CE*  =  " - "  THEN  CE  =  99800:  CE*  =  " 

210  SC  =  0 

211  FOR  II  =  1  TO  4 

212  SC*  =  MID* (ENP*,  16  ♦  II,  1):  SCI  =  VAL(SC*> 
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213  IF  SC*  =  -X’  THEN  SCI  =  10 

214  IF  SCI  >  SC  THEN  SC  =  SCI 

215  NEXT  II 

216  IF  SC  <  4  THEN  SC  =  4 :  GOTO  220 

217  IF  SC  >  6  THEN  SC  =  10:  GOTO  220 

218  IF  SC  >  3  AND  SC  <  7  THEN  SC  =  7 
220  mo  =  L>AL<M1D*<ENP*,  8,  2)) 

230  da  =  VAL<MID*<ENP* ,  10,  2)) 

240  GOSUB  400:  REM  stabclass  —  compute  atmospheric  stability  class 

245  GOSUB  1000:  REM  check  —  checks  For  zero  values 

250  GOSUB  800:  REM  output  —  print  out  weather  record  For  dispersion 

255  x  =  FRECx*):  REM  housecleaning 

260  GOTO  130 

300  CLOSE  Ml 

310  CLOSE  M2 

315  PASS  =  PASS  +  1 

320  IF  PASS  =  2  THEN  FI*  =  *UX000B . DAT" 

325  IF  PASS  =  3  THEN  FI*  =  •WXOOOC.DAT" 

330  IF  PASS  =  4  THEN  FI*  =  *WX000D.DAT* 

340  IF  PASS  =  5  THEN  END 

350  GOTO  120 

351  REM 
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360  REM  **«#**•»****•»•«**•*•*»**•*•**»•••••••*•*•»***••*••«*•*•****•***«•*•« 


361  REM  *  * 

362  REM  »  NAME :  subclass  * 

363  REM  *  FUNCTION:  assigns  P/G  stability  class  to  hour  * 

364  REM  #  CALLED  FROM:  main  * 

365  REM  «  CALLS:  overcast,  clouds  » 

366  REM  *  * 


367  REM  ••*****««*««•*«••••*«•«•*•«*«•*«**«•«*••*««««*••*«••*«•••*•••*••**••« 

368  REM 

400  DI  =  da  *  TC<mo) :  REM  interpolation  of  eauation  of  time  for  day 

410  CT  =  CS<mo)  ♦  DI :  REM  add  in  equation  of  time  value  at  start  of  month 

420  LC  =  <15  «  1NTCL0  /  15)  -  LO)  *  24  /  360:  REM  longitude  correction  for  time 

430  TA  =  hr  -  CT  /  3600:  REM  TA  is  local  apparent  time  in  hours 

440  ti  =  <12  -  TA)  /  24  *  360:  REM  convert  time  to  hour  angle 

450  ti  =  ti  *  pi  /  180:  REM  convert  hour  angle  to  radians 

460  DI  =  da  *  DC<mo) :  DCL  =  SA<mo)  ♦  DI :  REM  interpolate  solar  declination 

470  lr  =  la  *  pi  /  180:  REM  convert  latitude  to  radians 

480  dr  =  DCL  *  pi  /  180:  REM  convert  declination  to  radians 

490  AD  =  <  SIN<  dr )  *  SIN<lr>)  ♦  <C0S(dr)  *  COS(lr)  «  COS  <  t i ) ) 

495  REM  AD  =  sm<sun  angle) 

500  h  =  ATN(AD  /  SQR<1  -  AD  *  AD)):  REM  arcsine  function.  H=sun  angle 
510  h  =  h  »  180  /  pi:  REM  convert  sun  angle  to  degrees. 

525  REM:  insolation  class  as  a  function  of  sun  angle. 

520  IF  h  <=  0  THEN  ins  =  0:  GOTO  580:  REM  night 

530  IF  h  )  0  AND  h  <=  15  THEN  ins  =  1 

540  IF  h  >  15  AND  h  <=35  THEN  ins  =  2 

550  IF  h  >  35  AND  h  <=  60  THEN  ins  =  3 

560  IF  h  )  60  THEN  ins  =  4 

561  IF  SC  =  10  THEN  GOSUB  1200 :rem  overcast 

562  IF  SC  >=  5  AND  SC  <  10  THEN  GOSUB  1250:rem  clouds 

563  IF  ins  =  -1  THEN  PG  =  4:  ms  =  1:  RETURN:  REM  LOU  OVERCAST 

565  REM:  Pasqu i 1 1 -Gi f f ord  class  based  on  weather,  insolation. 

580  IF  ins  =  4  AND  ws  <  6  THEN  PG  =  1 :  RETURN 

590  IF  ms  =  4  AND  ws  <  10  AND  ws  >=  6  THEN  PG  =  2:  RETURN 

600  IF  ins  =  4  AND  ws  >=  10  THEN  PG  =  3:  RETURN 

610  IF  ins  =  3  AND  ws  <  2  THEN  PG  =  1 :  RETURN 
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620  IF  ins  =  3  AND  ws  <  8  AND  ws  >=  2  THEN  PG  =  2 :  RETURN 

630  IF  ms  =  3  FWD  ws  >=  8  AND  ws  <  12  THEN  PG  =  3:  RETURN 

640  IF  ins  =  3  AND  ws  >=  12  THEN  PG  =  4 :  RETURN 

650  IF  ins  =  2  AND  ws  <  4  THEN  PG  =  2:  RETURN 

660  IF  ins  =  2  AND  ws  >=  4  AND  ws  <  10  THEN  PG  =  3:  RETURN 

670  IF  ins  =  2  AND  ws  >=  10  THEN  PG  =  4:  RETURN 

680  IF  i ns  =  1  AND  ws  <  4  THEN  PG  =  3:  RETURN 

690  IF  i ns  =  1  AND  ws  >=  4  THEN  PG  =  4:  RETURN 

700  IF  ins  =  0  AND  ws  <=  6  <*ID  SC  >=  5  THEN  PG  =  5:  0rTur<N 

710  IF  ins  =  0  AND  ws  >  6  AND  SC  >=  5  THEN  PG  =  ' i  RETURN 

720  IF  ins  =  0  AND  ws  <=  10  AND  SC  <  5  THEN  PG  =  5:  RETURN 

730  IF  ins  =  0  AND  ws  >  10  AND  SC  <  5  THEN  PG  =  4:  RETURN 

740  RETURN 

780  REM 

781  REM  *#*##**#***##*###***#»*#**#**###**#*##«##**»****#***»***********»#*# 


782  REM  *  * 

783  REM  *  NAME :  output  * 

784  REM  «  FUNCTION:  writes  weather  -file  » 

785  REM  *  CALLED  FROM:  main  * 

786  REM  *  CALLS:  missing  * 

787  REM  *  * 


788  REM  •»****•**»**»**•***«•«*••*•****«**•*•****«*******«**•«•******••***•* 

789  REM 

800  PRINT  #2,  yr*;  mo$(mo) ;  da*;  hr*;  db* ;  ws*;  WDR*;  PG* 

805  GOSUB  1300 :rem  missing 
810  RETURN 

981  REM 

982  REM  #•******•*******•**«*«****#*•***»************#*****»******#***#*»***»** 


983  REM  *  * 

984  REM  *  NAME :  check  * 

985  REM  *  FUNCTION:  checks  For  zero  values  * 

986  REM  «  CALLED  FROM:  main  * 

987  REM  *  CALLS:  zero  * 

988  REM  *  * 


989  REM  ****###**#**************###**#***#*****#***#*********#*#******#■»**** 

990  REM 

1000  W*  =  yr*:  GOSUB  1100:  yr*  =  W* :  REM  subroutine  zero  replaces  blanks 
1010  W*  =  mol(mo) :  GOSUB  1100:  mo*<mo)  =  W* 

1020  W*  =  da*:  GOSUB  1100:  da*  =  W* 

1025  U*  =  hr*:  GOSUB  1100:  hr*  =  W* 

1030  W*  =  db*:  GOSUB  1100:  db*  =  W* 

1040  W*  -  ws*:  GOSUB  1100:  ws*  =  U* 

1050  W*  =  WDR*:  GOSUB  1100:  WDR*  =  W* 

1060  PG*  =  R1GHT*(STR*<PG) ,  1) 

1070  W*  =  PG*:  GOSUB  1100:  PG*  =  W* 

1080  RETURN 

1081  REM 


¥ 


1082 

1083 

1084 

1085 

1086 
108? 
1088 

1089 

1090 
1100 
1110 
1120 
1280 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 
1200 
1210 
1220 

1225 

1226 
1228 
1230 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 
1250 
1260 
1265 
1270 
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REM  a*#***###*##**#****##********#*#*#####*#*#****#*****#############*#* 


REM  *  * 

REM  *  NAME:  zero  * 

REM  *  FUNCTION:  replaces  blanks  with  zeros  * 

REM  *  CALLED  FROM:  main  * 

REM  *  CALLS:  no  other  routines  « 

REM  *  « 


REM  it**#*#*##*#***##*#********#*****##**#***#*#***#*#**#******##*****### 
REM 

FOR  I  =  1  TO  LENCW*):  IF  MID*<W$,  I,  1)  =  ■  *  THEN  MJDtOJ*,  1,1)  =  “O' 

NEXT  1 

RETURN 

REM 

REM  »**#»******##»»*##**«*»*******»**«****#»#*********«*#«***#**»*#****# 


REM  *  * 

REM  *  NAME:  overcast  * 

REM  *  FUNCTION:  adjusts  insolation  -for  overcast  * 

REM  *  CALLED  FROM:  stabclass  * 

REM  *  CALLS:  no  other  routines  # 

REM  *  « 


REM  *****••*•***«**»*****«*»*»*«*«*•«*«******•«**************«**««****** 
REM 

IF  CE  <  7000  THEN  ins  =  -i :  RETURN:  rem  flag  tor  low  overcast 

IF  CE  >=  7000  AND  CE  <=  16000  THEN  ins  =  ins  -  2 

IF  CE  >  16000  THEN  ins  =  ins  -  1 

IF  ins  <  1  THEN  ins  =  1 

RETURN 

REM 

REM  •««*«»***««•*«*«•«•****•««*****«***•****«*•***»******«*«********«•*• 


REM  *  * 
REM  *  NAME:  clouds  * 
REM  *  FUNCTION:  adjusts  insolation  tor  clouds  * 
REM  *  CALLED  FROM:  stabclass  * 
REM  *  CALLS:  no  other  routines  * 
REM  *  * 


REM  ******************************************************************** 
REM 

IF  CE  <  7000  THEN  ins  =  ms  -  2 

IF  CE  >=  7000  AND  CE  <=  16000  THEN  ins  =  ins  -  1 

IF  ins  <  1  THEN  ins  =  1 

RETURN 
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1330  REM  *•**#»*•»»****•*»•*»»»»•»**•**»*«**»»»»•»*•••••*•»»#»«»»**•»»*»**»•« 


1333  REM  «  * 

1334  REM  *  NAME:  missing  « 

1335  REM  *  FUNCTION:  ■finds  hours  of  missing  data  * 

1336  REM  *  CALLED  FROM:  output  « 

1337  REM  *  CALLS:  no  other  routines  •» 

1338  REM  *  « 


1339  REM  a####*#*##*#*##*****##*#***#********#*#***#*#**#*#*##**********##**# 

1340  REM 

1300  oh  =  oh  ♦  1:  IF  oh  =  24  THEN  oh  =  0 

1310  IF  hr  >  oh  THEN  LPRINT  "missing  data  ",  od*,  om*,  oh:  GOTO  1300 
1315  od*  =  da*:  oh*  =  hr*:  om*  =  mo*(mo) 

1320  RETURN 
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4 

REM 

«•**•*»*»*»*•«•«***«•*•««*•«*•**«****«•••*«•***«••«•««««•*«••*«««««*« 

5 

REM 

* 

* 

6 

REM 

« 

NAME: 

preproc 

* 

7 

REM 

« 

FUNCTION: 

subsets  weather  -file  over  desired  interval 

* 

8 

REM 

* 

CALLED  FROM: 

this  is  main  program 

« 

9 

REM 

* 

CALLS: 

no  other  routines 

* 

10 

REM 

« 

* 

11 

REM 

********************************************************************* 

12 

REM 

13  DIM  M0( 12),  HR<24),  DA< 31 ) 

18  PRINT 

20  INPUT  ’Enter  starting  time:  month  (1-12),  day  (1-31),  hour  < 0 -23 ) “ ;  MONTH, 
DAY,  HOUR 
25  PRINT 

30  IF  MONTH  =  13  THEN  END 

40  YEAR  =  82 

50  GOSUB  190:rem  julien 

60  START  =  (24  *  MO(MONTH  -  1))  +  ((DAY  -  1)  *  24)  4  HOUR  4  l 

70  INPUT  ’Enter  ending  time:  month  (1-12),  day  (1-31),  hour  ( 0-23) ’ ;  MONTH,  DAY, 
HOUR 

80  EN  =  (24  *  MO(MONTH  -  D)  4  ((DAY  -  1)  «  24)  4  HOUR  ♦  1 
100  OPEN  ’ WEATHER  1  .DAT"  FOR  RANDOM  AS  til  LEN  =  22 
105  OPEN  ’WEATHER.DAT’  FOR  OUTPUT  AS  H2 
110  FIELD  1 ,  21  AS  NP* 

120  FOR  A  =  START  TO  EN 
130  GET  til  ,  A 
145  PRINT  112,  NP* 

160  NEXT  A 
170  CLOSE 

180  END 

181  REM 
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182  REH  *******#*#*#***»#**#*«***#*#***#*#«###****######*##**##»*#**###***#** 


183  REM  *  * 

184  REM  »  NAME:  jul ten  * 

185  REM  *  FUNCTION:  relates  julien  day  and  month  * 

186  REM  *  CALLED  FROM:  main  « 

187  REM  *  CALLS:  no  other  routines  * 

188  REM  *  « 


169  REM  ««**•«**«*•*»#*»•»»#*••**»**•*«»**•***•*••««**«««•*«*••**«***«•*•*«»« 

190  REM 

191  M0< 1 )  =  31 
200  MOO)  =  59 
210  MOO)  =  90 
220  MOO)  =  120 
230  MOO)  =  151 
240  MOO)  =  181 
250  MOO)  =  212 
260  MOO)  =  243 
270  MOO)  =  273 
28C  M0<10)  =  304 
290  M0<11)  =  334 
300  M0C12)  =  365 
305  remileap  year 

310  IF  YEAR  /  4  =  I NT < YEAR/4)  AND  MONTH  >2  THEN  MOtMONTH- 1 )=M0(M0NTH- 1 ) 

320  RETURN 


